Да интересно вот что как InlineCode.
Умудряется работать в нескольких экземплярах ?
модуль вроде один unit HiAsmUnit;

[code:1] Add(MainForm,353019,21,105)
{
Left=20
Top=105
Width=286
Height=115
}
Add(InlineCode,10986631,91,21)
{
WorkPoints=#6:doWork|
EventPoints=#6:onWork|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|21: onWork:THI_Event;|50: procedure doWork(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|5:begin|27:{ ShowMessage ('Test2 !');}|28: _hi_OnEvent(onWork,'Test');|4:end;|0:|4:end.|
link(onWork,16031849:doText,[])
}
Add(Button,15653966,21,21)
{
Left=25
Top=40
Caption="Test2"
link(onClick,10986631:doWork,[])
}
Add(Label,16031849,161,21)
{
Left=140
Top=45
Width=90
Caption="------"
}
Add(InlineCode,11330402,133,63)
{
WorkPoints=#4:DoW1|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|9: public|47: procedure doW1(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|57: procedure THiAsmClass.doW1(var _Data:TData; Index:word);|9: begin|0:|30: ShowMessage ('Test1!');|8: end;|0:|4:end.|
}
Add(Button,3550959,21,63)
{
Left=5
Top=15
Width=225
Caption="Test"
link(onClick,11330402:DoW1,[(100,69)(100,69)])
}[/code:1]

зы
Интерестно еще что вроде как модальный ShowMessage допускает
повторное вхождение .