Add(ScreenShort,6049923,364,266)
{
 link(onCapture,6886102:doWork,[])
}
Add(InlineCode,6886102,420,266)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 DataPoints=#6:Bitmap|
 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|28:   Bitmap,onEvent:THI_Event;|49:   procedure doWork(var _Data:TData; Index:word);|7:   end;|3:   |14:implementation|0:|29:procedure THiAsmClass.doWork;|3:var|15:  B24: PBitmap;|5:begin|38:  B24 := ReadBitmap(_Data,Bitmap,nil);|35:     B24.PixelFormat := pf4bit;    |31:      _hi_OnEvent(onEvent,B24);|4:end;|4:end.|
 link(onEvent,9036499:doLoad,[])
}
Add(Image,9036499,476,266)
{
 Left=355
 Top=340
 Align=5
}
Add(Button,3919583,308,266)
{
 Left=40
 link(onClick,6049923:doCapture,[])
}