Add(InlineCode,8487053,252,161)
{
 WorkPoints=#6:dotest|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|86:uses kol,Share,Debug{$ifdef FPC_NEW},sysutils{$else}{$ifndef F_P},err{$endif}{$endif};|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|52:    procedure dotest(var _Data: TData; Index: Word);|5: end;|0:|14:implementation|0:|60:procedure THiAsmClass.dotest(var _Data: TData; Index: Word);|11:var a:real;|5:begin|18: ShowMessage('1');|4: try|25:  a:= a/tointeger(_data);|19:  ShowMessage('2');|8: except |33: {$ifndef F_P}on E: Exception do |26:   ShowMessage(E.Message);|8: {$else}|20:   ShowMessage('3');|9: {$endif}|5: end;|4:end;|0:|0:|4:end.|
}
Add(Button,12095017,189,161)
{
 Left=20
 Top=25
 Data=Integer(0)
 link(onClick,8487053:dotest,[])
}