Как же нехватает поиска на форуме

Суть проблемы в названии темы. err.pas сплошная красная простыня.
Оно и раньше не работало, или чего пропустил за эти года?

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,[])
}