Add(InlineCode,3190075,329,154)
{
 @Hint=#16:TranslateMessage|
 WorkPoints=#6:doEmul|
 DataPoints=#6:Handle|3:Key|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses Windows, Messages, kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|12:     Handle,|20:     Key: THI_Event;|51:     procedure doEmul(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doEmul;|3:var|12:  msg: TMsg;|16:  wkey: integer;|5:begin|41:  msg.hwnd := ReadInteger(_Data, Handle);|34:  wkey := ReadInteger(_Data, Key);|28:  msg.message := WM_KEYDOWN;|21:  msg.wParam := wkey;|18:  msg.lParam := 0;|18:  msg.time := 100;|24:  TranslateMessage(msg);|28:  DispatchMessage(msg);     |4:end;|0:|4:end.|
 link(Handle,9267953:Value,[])
}
Add(Memory,9267953,329,105)
{
 Default=String(1902894)
}
Add(MainForm,2953706,56,28)
{
}
Add(DoData,16477425,287,154)
{
 Data=String(49)
 link(onEventData,3190075:doEmul,[])
}
Add(KeyHook,11279102,56,161)
{
 link(onKeyDown,11895449:doValue,[])
}
Add(If_else,9478885,182,161)
{
 Op2=String(35)
 link(onTrue,16477425:doData,[(250,167)(250,160)])
 link(Op1,11895449:Value,[(188,149)(153,149)(153,205)(118,205)])
}
Add(Memory,11895449,112,161)
{
 link(onData,9478885:doCompare,[])
}