#pas
procedure THIPolymorphMulti.doWork;
var i:integer;
    dt:TData;
begin
   for i := 0 to FChilds.Count-1 do
    begin
    sleep(_prop_Delay);
    dt := Data;
      _hi_onEvent(THiPoliEdit(FChilds.Items[i]).Works[Index], dt);
    end;
   _hi_onEvent(_event_onEndWork);
end;

Add(MainForm,2953706,252,133)
{
}
Add(PolymorphMulti,323605,252,182)
{
 Childrens=#3:001|3:002|3:003|3:004|
 Selected="base"
}
BEGIN_SDK
  Add(PoliEdit,13983968,21,21)
  {
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,8894689,21,21)
  {
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,10225780,21,21)
  {
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,364292,21,21)
  {
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,383836,21,21)
  {
  }
END_SDK

D:\HiAsm_Archives\HiAsm_b173\Elements\delphi\code\Project3.dpr(115) Error: Incompatible types: 'PControl' and 'Pointer'

D:\HiAsm_Archives\HiAsm_b173\Elements\delphi\code\Project3.dpr(116) Error: Incompatible types: 'PControl' and 'Pointer'

D:\HiAsm_Archives\HiAsm_b173\Elements\delphi\code\Project3.dpr(117) Error: Incompatible types: 'PControl' and 'Pointer'

Add(MainForm,2953706,161,147)
{
 link(onCreate,11418012:doEnum,[])
}
Add(PolymorphMulti,9047449,343,161)
{
 Childrens=#3:001|3:002|3:003|3:004|3:005|
 Selected="005"
 link(Out,3546237:doText,[])
}
BEGIN_SDK
  Add(PoliEdit,7769199,21,21)
  {
   WorkCount=#59:##Add=Создает дочерний контейнер по указанному имени класса|8:##select|
   EventCount=#3:Out|
   VarCount=#7:##count|
   Width=468
   Height=291
   Point(##select)
   Point(##count)
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,10876785,21,21)
  {
   WorkCount=#59:##Add=Создает дочерний контейнер по указанному имени класса|8:##select|
   EventCount=#3:Out|
   VarCount=#7:##count|
   Width=468
   Height=291
   Point(##select)
   Point(##count)
   link(##select,10876785:Out,[(255,34)(255,27)])
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,14896954,21,21)
  {
   WorkCount=#59:##Add=Создает дочерний контейнер по указанному имени класса|8:##select|
   EventCount=#3:Out|
   VarCount=#7:##count|
   Width=468
   Height=291
   Point(##select)
   Point(##count)
   link(##select,14896954:Out,[(255,34)(255,27)])
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,13506238,21,21)
  {
   WorkCount=#59:##Add=Создает дочерний контейнер по указанному имени класса|8:##select|
   EventCount=#3:Out|
   VarCount=#7:##count|
   Width=468
   Height=291
   Point(##select)
   Point(##count)
   link(##select,13506238:Out,[(255,34)(255,27)])
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,2662196,21,21)
  {
   WorkCount=#59:##Add=Создает дочерний контейнер по указанному имени класса|8:##select|
   EventCount=#3:Out|
   VarCount=#7:##count|
   Width=468
   Height=291
   Point(##select)
   Point(##count)
   link(##select,2662196:Out,[(255,34)(255,27)])
  }
END_SDK
BEGIN_SDK
  Add(PoliEdit,14813174,21,21)
  {
   WorkCount=#59:##Add=Создает дочерний контейнер по указанному имени класса|8:##select|
   EventCount=#3:Out|
   VarCount=#7:##count|
   Width=468
   Height=291
   Point(##select)
   Point(##count)
   link(##select,14813174:Out,[(255,34)(255,27)])
  }
END_SDK
Add(StrList,1874948,224,91)
{
 Strings=#3:001|3:002|3:003|3:004|3:005|
}
Add(ArrayEnum,11418012,238,161)
{
 link(onItem,9047449:##Add,[])
 link(Array,1874948:Array,[])
}
Add(Button,5572794,161,238)
{
 Left=30
 Top=25
 Data=String(base)
 link(onClick,13879505:doTimer,[])
}
Add(Timer,13879505,210,238)
{
 Enable=1
 link(onTimer,1459143:doNext,[])
}
Add(Counter,1459143,266,238)
{
 Max=5
 link(onNext,9047449:##select,[(314,244)(314,174)])
}
Add(Edit,3546237,413,161)
{
 Left=110
 Top=25
 Width=105
 Text=""
}

C:\HiAsm_b174\Elements\delphi\code.\hiMainForm_8DFBD78.pas(199) Error: Undeclared identifier: 'select'