Control a runtime

I want to control visibility at run time but it is not working
Settings at design time work perfectly.
TIA
- Code: Select all
procedure TIWForm1.DisplayRegions(ip_Num:smallint);
begin
IWCGPanelList1.Items[0].Visible := (ip_Num = 0);
IWCGPanelList1.Items[1].Visible := (ip_Num = 1);
IWCGPanelList1.Items[2].Visible := (ip_Num = 2);
end;
Settings at design time work perfectly.
TIA