Add(InlineCode,8667967,280,196)
{
 WorkPoints=#1:t|1:p|
 EventPoints=#1:y|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|41:uses windows,kol,Share,Debug{,AviWriter};|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|30:    s:array [0..2] of PBitmap;|14:    i:integer;|14:    d:PBitmap;|9:   public|16:    y:THI_Event;|4:    |42:    procedure t(var dt:TData; index:word);|42:    procedure p(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.t;|15:var pt:PBitmap;|5:begin|24: s[0] := newBitmap(0,0);|22: s[0] := ToBitmap(dt);|4:end;|0:|24:procedure THiAsmClass.p;|5:begin|21: _hi_OnEvent(y,s[0]);|4:end;|0:|4:end.|
 link(y,7902004:doLoad,[])
}
Add(Button,14161978,217,245)
{
 Left=10
 Top=65
 link(onClick,8667967:p,[(264,251)(264,209)])
}
Add(Label,13299387,105,196)
{
 Left=15
 Top=35
 link(onClick,11431973:doExecute,[])
}
Add(ODialog,11431973,161,196)
{
 link(onExecute,11186286:doLoad,[])
}
Add(Image,7902004,336,196)
{
 Left=140
 Top=45
 Width=210
 Height=190
}
Add(PictureStream,11186286,217,196)
{
 link(onLoad,8667967:t,[])
}