function THIMemo.Add(const Text: string):integer;
begin
   if (Control.Count > 0)and(control.items[control.Count-1] <> ')then
     Control.Add(#13#10);
 
   if Text<>' then Result := Control.Add(Text)
   else Result := Control.Add(#13#10);
end;

Add(Button,8557857,99,179)
{
 Left=45
 Top=80
 Width=90
 Caption="CracoTest"
 link(onClick,3840162:doEnum,[(137,185)(137,167)])
}
Add(Message,3235685,490,154)
{
}
Add(ArrayEnum,3840162,434,161)
{
 link(onItem,3235685:doMessage,[(473,167)(473,160)])
 link(Array,14341300:Array,[(440,124)(438,124)])
}
Add(RichEdit,14341300,418,70)
{
 Left=230
 Top=1
 Width=245
 Height=245
 ModeSp=1
 Strings=#21:Ужасные крякозябры!!!|18:NEt CracozUbrov!!!|1: |
 ScrollBars=3
 CanDragOle=1
 InsertCRLF=1
 Point(doDelete)
}