Add(MainForm,9703046,126,203)
{
 Width=292
 Height=226
 Position=1
}
Add(Button,3342741,126,140)
{
 Left=25
 Top=20
 Data=String(ABCDEF)
 link(onClick,7763379:doData,[])
}
Add(Time,4805613,182,77)
{
 Point(DateTime)
}
Add(DoData,7763379,189,140)
{
 link(onEventData,11927620:doEvent1,[])
 link(Data,4805613:DateTime,[])
}
Add(ListBox,12157137,483,140)
{
 Left=25
 Top=50
 Width=200
 Height=115
}
Add(Hub,9546187,336,140)
{
 link(onEvent1,13469378:doStrCat,[(368,146)(368,118)])
 link(onEvent2,4484966:doConvert,[])
}
Add(Hub,14375896,448,140)
{
 InCount=4
 OutCount=1
 link(onEvent1,12157137:doAdd,[])
}
Add(Hub,7211647,336,217)
{
 link(onEvent1,5713220:doStrCat,[(360,223)(360,195)])
 link(onEvent2,12032341:doConvert,[])
}
Add(DateConvertor,12032341,378,224)
{
 Mode=16
 Format="UTC: dd-MM-yyyy HH:mm:ss"
 link(onResult,14375896:doEvent4,[(432,230)(432,167)])
}
Add(DateConvertor,4484966,378,147)
{
 Mode=16
 Format="LOC: dd-MM-yyyy HH:mm:ss"
 link(onResult,14375896:doEvent2,[])
}
Add(DateConvertor,14686218,287,140)
{
 Mode=19
 link(onResult,9546187:doEvent1,[])
}
Add(Hub,11927620,238,140)
{
 OutCount=3
 link(onEvent1,14686218:doConvert,[])
 link(onEvent3,1750949:doTest,[(262,160)(262,223)])
}
Add(StrCat,5713220,378,189)
{
 Str1="UTC: "
 link(onStrCat,14375896:doEvent3,[(422,195)(422,160)])
}
Add(InlineCode,1750949,287,217)
{
 WorkPoints=#6:doTest|
 EventPoints=#6:onTest|
 Code=#17:unit HiAsmUnit;  |6:// Tad|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|14:    Res:TData;|9:   public|21:    onTest:THI_Event;|50:    procedure doTest(var _Data:TData; Index:Word);|5: end;|16:var  hP:Integer;|29:     tm:TTimeZoneInformation;|3:   |14:implementation|0:|1: |29:procedure THiAsmClass.doTest;|5:begin|72: dtInteger(Res,Round((toReal(_Data) - 25569 - VCLDATE0 ) * 86400 + hp));|25: _hi_onEvent(onTest,Res);|4:end;|0:|14:initialization|28: GetTimeZoneInformation(tm);|16: hP:=tm.bias*60;|4:end.|
 link(onTest,7211647:doEvent1,[])
}
Add(StrCat,13469378,378,112)
{
 Str1="LOC:"
 link(onStrCat,14375896:doEvent1,[(420,118)(420,146)])
}