#sha
Add(MainForm,2953706,21,105)
{
 Width=281
 Height=171
}
Add(InlineCode,14058540,385,350)
{
 WorkPoints=#4:Conv|
 EventPoints=#7:onEvent|8:onEvent1|
 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|9:   public|20:     Text:THI_Event;|23:     onEvent:THI_Event;|25:     onEvent1:THI_Event; |43:procedure Conv(var Data:TData; Index:word);|50:procedure Result(var Data:TData; index:word);     |4:end;|0:|14:implementation|0:|3:var|10:a: String;|10:b: String;|5:     |26:procedure THiAsmClass.Conv|5:begin|66:a := Round((ReadReal(Data,Text,0) - 25569 - VCLDATE0) * 86400000);|30:  _hi_CreateEvent(onEvent, a);|0:|4:end;|0:|23:procedure THiAsmClass.b|5:begin|13:             |14:b := a / 5000;|30: _hi_CreateEvent(onEvent1, b);|0:|4:end;|0:|4:end;|2:  |4:end.|
 link(onEvent,11919236:doText,[])
 link(onEvent1,2948977:doText,[(437,363)(437,405)])
 link(Text,15781768:DateTime,[(391,331)(398,331)])
}
Add(Time,15781768,385,280)
{
 Format="DMMYYYYhhmmss"
 Point(DateTime)
}
Add(Timer,11234882,259,350)
{
 link(onTimer,14058540:Conv,[])
}
Add(Label,11919236,457,350)
{
 Left=25
 Top=30
 Width=180
}
Add(Label,2948977,457,399)
{
 Left=25
 Top=55
 Width=180
}