#pas
procedure TClassFTCG_Tools_8EA8840.event_doData(var Data:TData; index:word);
begin
  MessageBox(0, PChar('ex'), PChar(''), MB_OK);
end;

#pas
procedure TClassFTCG_Tools_8EA8840.event_doData(var Data:TData; index:word);
begin
  MessageBox(0, 'ex', '', MB_OK);
end;

Add(InlineCode,13453293,119,133)
{
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:   constructor Create;|5: end;|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|37:MessageBox(0,PChar('g'),PChar(''),0);|4:end;|0:|4:end.|
}
Add(InlineCode,16623649,154,133)
{
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:   constructor Create;|5: end;|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|23:MessageBox(0,'g','',0);|4:end;|0:|4:end.|
}