Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,266,91)
{
 Width=488
 Height=149
}
Add(Edit,9693415,413,84)
{
 Left=25
 Top=45
 Width=185
 Text="32125.32"
 link(onChange,7242382:doEvent1,[])
}
Add(DateConvertor,15770485,511,91)
{
 Mode=16
 Format="HH:mm:ss"
 link(onResult,11969393:doStrCatDlm,[])
}
Add(Hub,7242382,469,84)
{
 link(onEvent1,4384949:doSplit,[(501,90)(501,146)])
 link(onEvent2,15770485:doConvert,[])
}
Add(StrPart,4384949,511,140)
{
 Char="."
 Point(Right)
 Point(onNotFound)
 link(onSplit,86010:doValue,[])
 link(onNotFound,86010:doClear,[(555,160)(555,153)])
}
Add(Edit,2774465,658,91)
{
 Left=255
 Top=45
 Width=185
 Text=""
}
Add(StrCatDelim,11969393,595,91)
{
 Delimiter=":"
 Point(doClear)
 link(onStrCatDlm,2774465:doText,[])
 link(Str2,86010:Value,[(608,79)(590,79)(590,184)(573,184)])
}
Add(Memory,86010,567,140)
{
 Default=String(00)
 Point(Data)
}

Make(delphi)
ver(4.05 build 186)
Add(MainForm,13803910,672,273)
{
}
Add(Time,14408765,483,196)
{
 Point(DateTime)
}
Add(DateConvertor,6039872,490,273)
{
 Mode=9
 Format="dd-MM-yyyy HH:mm:ss::"
 Point(Data)
 Point(Result)
 link(onResult,1008384:doCalc,[])
 link(Data,6614856:Var2,[])
}
Add(MathParse,1008384,532,273)
{
 DataCount=1
 MathStr="round(frac(frac(%1)*86400),0.001)"
 link(onResult,7973961:doCopy,[])
 link(X1,6614856:Var3,[(538,257)])
}
Add(GetDataEx,6614856,490,252)
{
 link(Data,14408765:DateTime,[])
}
Add(Copy,7973961,574,273)
{
 Position=1
 Count=3
 Direction=1
 link(onCopy,8175536:doStrCat,[])
}
Add(Timer,11065696,434,273)
{
 Interval=10
 link(onTimer,6039872:doConvert,[])
}
Add(StrCat,8175536,623,273)
{
 link(onStrCat,13803910:doCaption,[])
 link(Str1,6039872:Result,[(629,264)(615,264)(615,313)(496,313)])
}