#sha
Add(MainForm,2953706,35,147)
{
 Width=469
 Height=132
}
Add(Label,16557245,400,210)
{
 Left=140
 Top=70
}
Add(Timer,9237589,154,105)
{
 Interval=10
 link(onTimer,6831659:doEvent1,[])
}
Add(Time,5381473,273,56)
{
 Point(DateTime)
}
Add(Math,8667653,280,210)
{
 OpType=1
 link(onResult,15212977:doConvert,[])
 link(Op1,15073522:Value,[])
 link(Op2,15255467:Text,[(293,194)(321,194)])
}
Add(Hub,6831659,203,105)
{
 link(onEvent1,15073522:doValue,[])
 link(onEvent2,8667653:doOperation,[(257,118)(257,216)])
}
Add(Label,5937933,399,105)
{
 Left=140
 Top=10
}
Add(DateConvertor,6341658,336,105)
{
 Mode=9
 link(onResult,5937933:doText,[])
}
Add(InfoTip,6941406,35,280)
{
 Info=#54:function UnixToLocalTime( tUnix :Longint ): TDateTime;|38:var  TimeZone :TTimeZoneInformation;  |18:Bias     :Integer;|74:begin  if ( GetTimeZoneInformation(TimeZone) = TIME_ZONE_ID_DAYLIGHT )    |54:then Bias := TimeZone.Bias + TimeZone.DaylightBias    |53:else Bias := TimeZone.Bias + TimeZone.StandardBias;  |62:Result := EncodeDate( 1970,1,1) - Bias / 1440 + tUnix / 86400;|4:end;|
 Width=386
 Height=116
}
Add(DateConvertor,15212977,340,210)
{
 Mode=9
 link(onResult,16557245:doText,[])
}
Add(Memory,15073522,280,105)
{
 Point(Data)
 link(onData,6341658:doConvert,[])
 link(Data,5381473:DateTime,[])
}
Add(Edit,15255467,315,154)
{
 Left=85
 Top=35
 Width=360
 Text="0.0"
}
Add(Label,12422539,28,63)
{
 Left=20
 Top=10
 Width=87
 Height=17
 Caption="Время на компе"
}
Add(Label,10154051,35,63)
{
 Left=20
 Top=37
 Width=58
 Height=17
 Caption="Смещение"
}
Add(Label,14207101,35,70)
{
 Left=20
 Top=70
 Width=98
 Height=17
 Caption="Время со сдвигом"
}

Add(MainForm,2953706,98,140)
{
 Width=274
 Height=34
 Caption="Time"
 BorderStyle=3
 Position=1
 link(onCreate,11483292:doRead,[])
}
Add(Registry,11483292,147,154)
{
 HKey=2
 Key="SYSTEMCurrentControlSetControlTimeZoneInformation"
 Value="Bias"
 DataType=0
 link(onRead,2953706:doCaption,[(190,160)(190,131)(86,131)(86,146)])
}