Add(MainForm,4023366,217,119)
{
 Width=151
 Height=134
 Color=12639424
 BorderStyle=1
 Position=1
}
Add(InlineCode,6673039,266,161)
{
 @Color=16755455
 WorkPoints=#6:doWork|
 DataPoints=#7:PHandle|
 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|25:     Phandle : THI_Event;|51:     Procedure doWork(var Dt:TData; Index:Word);   |0:|5: end;|0:|14:implementation|0:|29:Procedure THiAsmClass.doWork;|17:var iC: PControl;|14:    a:integer;|5:BEGIN|42:  iC := PControl(ToIntegerEvent(Phandle));|21:  a := toInteger(Dt);|11:  Case a of|31:  0..15:  iC.font.color := 255;|33:  16..25: iC.font.color := 65535;|36:  else    iC.font.color := 16711680;|6:  end;|27:  iC.Caption := int2Str(a);|4:END;|4:end.|
 link(PHandle,15591309:PHandle,[])
}
Add(Label,15591309,259,119)
{
 Left=60
 Top=55
 Color=12639424
 Font=[MS Sans Serif,14,1,0,1]
 Caption=""
 Point(PHandle)
}
Add(Edit,3091973,217,161)
{
 Left=55
 Top=10
 Text="100"
 DataType=2
 link(onChange,6673039:doWork,[])
}
Add(Timer,2962736,119,161)
{
 Interval=50
 link(onTimer,6968064:doNext,[])
}
Add(Counter,6968064,168,161)
{
 Max=40
 link(onNext,3091973:doText,[])
}