Add(Memory,781247,414,88)
{
 @Hint=#15:Длина сообщения|
}
Add(SendMessage,6884336,365,88)
{
 Message=13
 WParam=255
 link(onSend,781247:doValue,[])
}
Add(InlineCode,4592546,303,88)
{
 @Hint=#10:WM_GETTEXT|
 WorkPoints=#6:doWork|
 EventPoints=#6:onSend|8:onResult|
 DataPoints=#3:Len|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|9:  private|8:  public|20:   onSend:THI_Event;|22:   onResult:THI_Event;|17:   Len:THI_Event;|49:   procedure doWork(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|18:var x:string[255];|0:|29:procedure THiAsmClass.doWork;|5:begin|37:  _hi_onEvent(onSend,integer(@x[1]));|35:  SetLength(x,ToIntegerEvent(Len));|37:  _hi_CreateEvent(_Data,@onResult,x);|4:end;|0:|4:end.|
 link(onSend,6884336:doSendMessage,[])
 link(onResult,9065312:doAdd,[(360,101)(360,153)])
 link(Len,781247:Value,[(309,78)(355,78)(355,135)(420,135)])
}
Add(Button,1433222,252,88)
{
 Left=285
 Top=185
 link(onClick,4592546:doWork,[])
}
Add(RichEdit,9065312,385,147)
{
 Left=25
 Top=100
 Width=220
 Height=140
}

Add(MainForm,10899554,196,119)
{
 Left=10
 Top=10
 Position=1
}
Add(Timer,5013873,98,119)
{
 Interval=100
 link(onTimer,11578177:doData,[])
}
Add(MouseEvent,7174544,133,63)
{
 Point(Handle)
}
Add(DoData,11578177,147,119)
{
 link(onEventData,10899554:doCaption,[])
 link(Data,7174544:Handle,[])
}