Add(MainForm,168140,392,210)
{
 Width=281
 Height=171
}
Add(InlineCode,14058540,462,266)
{
 WorkPoints=#4:Conv|
 EventPoints=#7:onEvent|8:onEvent1|
 VarPoints=#6:Result|7:Result1|
 DataPoints=#4:Text|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses Kol,Share,Debug;|2:  |4:type|28: THiAsmClass = class(TDebug)|10:   private|13:     a: Real;|13:     b: Real;|9:   public|20:     Text:THI_Event;|23:     onEvent:THI_Event;|25:     onEvent1:THI_Event; |48:     procedure Conv(var Data:TData; Index:word);|50:     procedure Result(var Data:TData; index:word);|62:     procedure Result1(var Data:TData; index:word);           |4:end;|0:|14:implementation|5:     |27:procedure THiAsmClass.Conv;|5:begin|68:  a := Round((ReadReal(Data,Text,0) - 25569 - VCLDATE0) * 86400000);|16:  b := a / 5000;|26:  _hi_onEvent(onEvent, a);|29:  _hi_onEvent(onEvent1, b);  |4:end;|2:  |29:procedure THiAsmClass.Result;|5:begin|18:  dtReal(Data, a);|4:end;|0:|30:procedure THiAsmClass.Result1;|5:begin|18:  dtReal(Data, b);|4:end;|0:|4:end.|
 link(onEvent,11919236:doText,[])
 link(onEvent1,2948977:doText,[(514,279)(514,321)])
 link(Text,15781768:DateTime,[])
}
Add(Time,15781768,455,210)
{
 Format="DMMYYYYhhmmss"
 Point(DateTime)
}
Add(Timer,11234882,392,266)
{
 link(onTimer,14058540:Conv,[])
}
Add(Label,11919236,534,266)
{
 Left=25
 Top=30
 Width=180
}
Add(Label,2948977,534,315)
{
 Left=25
 Top=55
 Width=180
}