#pas
procedure THIDateConvertor._work_doConvert9;//DateRealToStrFmt
begin
   DateTime:= ReadReal(_Data,_data_Data,0);
   if DateTime < 584389  then DateTime:= DateTime+584389;
...............................

Add(Edit,5529849,203,56)
{
 Left=80
 Top=85
 Width=150
 Text="REAL равный часу..."
 link(onChange,3049176:doConvert,[])
}
Add(DateConvertor,12274668,154,56)
{
 Mode=8
 Format="HH:mm:ss"
 Point(Data)
 link(onResult,5529849:doText,[])
}
Add(Edit,13843409,98,56)
{
 Left=10
 Top=85
 Width=65
 Text="01:00"
 link(onChange,12274668:doConvert,[])
}
Add(Edit,1992395,308,56)
{
 Left=240
 Top=85
}
Add(DateConvertor,3049176,259,56)
{
 Mode=9
 Format="HH:mm:ss"
 Point(Data)
 link(onResult,1992395:doText,[])
}

Add(MainForm,7656220,63,63)
{
 Left=20
 Top=105
 Width=189
 Height=189
 link(onCreate,1603912:doValue,[])
}
Add(Timer,7519366,63,133)
{
 link(onTimer,9529425:doValue,[])
}
Add(Time,3224702,133,21)
{
 Format="h:m"
 Point(DateTime)
}
Add(Memory,1603912,140,77)
{
 Point(Data)
 link(onData,552654:doConvert,[])
 link(Data,12448673:Var2,[])
}
Add(Memory,9529425,126,133)
{
 Point(Data)
 link(onData,10073002:doEvent1,[])
 link(Data,12448673:Var1,[(132,65)])
}
Add(GetDataEx,12448673,133,56)
{
 link(Data,3224702:DateTime,[])
}
Add(Math,6200552,126,203)
{
 OpType=1
 link(onResult,3049176:doConvert,[])
 link(Op1,9529425:Value,[])
 link(Op2,1603912:Value,[(139,156)(146,156)])
}
Add(DateConvertor,3049176,189,203)
{
 Mode=9
 Format="HH:mm:ss"
 Point(Data)
 link(onResult,1992395:doText,[])
}
Add(Edit,1992395,252,203)
{
 Left=65
 Top=95
 Width=85
 Height=25
}
Add(DateConvertor,552654,196,77)
{
 Mode=9
 Format="HH:mm:ss"
 Point(Data)
 link(onResult,15346143:doText,[])
}
Add(Edit,15346143,259,77)
{
 Left=65
 Top=30
 Width=85
 Height=25
}
Add(DateConvertor,1460503,238,140)
{
 Mode=9
 Format="HH:mm:ss"
 Point(Data)
 link(onResult,11914404:doText,[])
}
Add(Edit,11914404,294,140)
{
 Left=65
 Top=60
 Width=85
 Height=25
}
Add(Hub,10073002,182,133)
{
 link(onEvent1,1460503:doConvert,[(226,139)(226,146)])
 link(onEvent2,6200552:doOperation,[(226,146)(226,178)(114,178)(114,209)])
}