#pas
procedure THISwitchPages.SetCount;
begin
  SetLength(onSelect, Value);
  FOutCount := Value;
end;
procedure THISwitchPages._work_doSelect0; // для Visible
var i, n:integer;
  val:cardinal;
begin
  val := ReadInteger(_data,_data_Data,0);
  n := 1 shl val;
  for i := 0 to FOutCount-1 do begin
    if ((n shr i) and 1) = 1 then
      _hi_OnEvent(onSelect[i],1)
    else 
      _hi_OnEvent(onSelect[i],0);
  end;
end;

procedure THISwitchPages._work_doSelect1; // для doBringToFront
var i:integer;
begin
  i:= ReadInteger(_data,_data_Data,0);
  if(i >= 0)and(i< FOutCount) then
    _hi_onEvent(onSelect[i]);
end;

for i:=1 to Length[s] do _hi_onEvent(onSelect[i],str2int(s[i]));

Add(MultiSetParam,13305001,357,322)
{
 Count=5
 link(Parameters,12863145:Text,[])
 link(onSet1,13344119:doEvent1,[(433,328)(433,216)])
 link(onSet2,12393346:doEvent1,[(433,335)(433,265)])
 link(onSet3,3111659:doEvent1,[])
 link(onSet4,15775230:doEvent1,[(433,349)(433,419)])
 link(onSet5,15450993:doEvent1,[(433,356)(433,496)])
}
Add(MainForm,7097383,224,259)
{
 Width=267
 Height=350
 Caption="Пример"
 Position=1
 link(onCreate,5326446:doData,[])
}
Add(TabControl,11626105,259,322)
{
 Left=5
 Top=10
 Width=240
 Height=295
 Tabs=#1:1|1:2|1:3|1:4|1:5|
 Bitmaps=[]
 link(onChange,4496350:doWork2,[])
}
Add(Label,38092,539,168)
{
 Left=55
 Top=160
 Width=136
 Height=22
 Font=[Tahoma,11,1,0,204]
 Visible=1
 Caption="1-я страница"
 Point(doVisible)
}
Add(Label,8805747,539,252)
{
 Left=55
 Top=160
 Width=136
 Height=22
 Font=[Tahoma,11,1,0,204]
 Visible=1
 Caption="2-я страница"
 Point(doVisible)
}
Add(Label,7931658,539,329)
{
 Left=55
 Top=160
 Width=136
 Height=22
 Font=[Tahoma,11,1,0,204]
 Visible=1
 Caption="3-я страница"
 Point(doVisible)
}
Add(Label,10903200,539,406)
{
 Left=55
 Top=160
 Width=136
 Height=22
 Font=[Tahoma,11,1,0,204]
 Visible=1
 Caption="4-я страница"
 Point(doVisible)
}
Add(Label,13224642,539,483)
{
 Left=55
 Top=160
 Width=136
 Height=22
 Font=[Tahoma,11,1,0,204]
 Visible=1
 Caption="5-я страница"
 Point(doVisible)
}
Add(DoData,5326446,280,273)
{
 Data=Integer(0)
 link(onEventData,4496350:doWork1,[(326,279)])
}
Add(HubEx,4496350,322,322)
{
 link(onEvent,13305001:doSet,[])
}
Add(Hub,13344119,476,210)
{
 link(onEvent1,38092:doVisible,[(514,216)(514,181)])
 link(onEvent2,10049643:doVisible,[])
}
Add(Hub,12393346,476,259)
{
 link(onEvent1,8805747:doVisible,[])
 link(onEvent2,9928649:doVisible,[(514,272)(514,300)])
}
Add(Hub,3111659,483,336)
{
 link(onEvent1,7931658:doVisible,[])
 link(onEvent2,8430857:doVisible,[(515,349)(515,384)])
}
Add(Hub,15775230,476,413)
{
 link(onEvent1,10903200:doVisible,[])
 link(onEvent2,1955089:doVisible,[(511,426)(511,447)])
}
Add(Hub,15450993,476,490)
{
 link(onEvent1,13224642:doVisible,[])
 link(onEvent2,13927988:doVisible,[(518,503)(518,531)])
}
Add(VisualStrings,12863145,357,217)
{
 Lines=#9:1;1;1;0;0|9:0;1;0;0;0|9:0;0;1;0;0|9:0;0;0;1;0|9:0;0;0;0;1|0:|
 Width=60
 Height=88
}
Add(CheckBox,10049643,539,210)
{
 Left=55
 Top=245
 Width=115
 Visible=1
 Point(doVisible)
}
Add(RadioButton,9928649,539,287)
{
 Left=55
 Top=210
 Width=115
 Height=30
 Visible=1
 Point(doVisible)
}
Add(Edit,8430857,539,364)
{
 Left=110
 Top=190
 Visible=1
 Point(doVisible)
}
Add(ButtonRush,1955089,539,441)
{
 Left=50
 Top=270
 Visible=1
 Glyphs=[]
 Point(doVisible)
}
Add(Button,13927988,539,525)
{
 Left=55
 Top=190
 Visible=1
 Caption="кнопка"
 Point(doVisible)
}