Add(MainForm,10557167,196,168)
{
 Width=250
 Height=152
 Position=1
}
Add(Edit,15526570,441,168)
{
 Left=80
 Top=55
 Width=60
 Text=""
 link(onChange,11374066:doPosition,[(485,174)(485,148)(281,148)(281,174)])
 link(Str,9014905:Result,[(447,156)(398,156)(398,212)(349,212)])
}
Add(UpDown,11374066,294,168)
{
 Left=140
 Top=55
 Max=60
 Min=-1
 link(onPosition,9014905:doCalc,[])
}
Add(MathParse,9014905,343,168)
{
 DataCount=1
 MathStr="((%1 < 0) * 60) + ((%1 > 59) * 0) + ((%1 <= 59) * %1)"
 link(onResult,9451768:doTimer,[])
}
Add(Timer,9451768,392,168)
{
 Interval=25
 Enable=1
 AutoStop=1
 link(onTimer,15526570:doText,[])
}

Add(Edit,15526570,532,147)
{
 Left=80
 Top=55
 Width=60
 Text=""
 link(onChange,13621991:doWork1,[(576,153)(576,137)(373,137)])
}
Add(UpDown,11374066,385,154)
{
 Left=140
 Top=55
 Max=60
 Min=-1
 link(onPosition,6775221:doCase,[])
}
Add(Case,6775221,427,154)
{
 Value=Integer(60)
 DataOnTrue=Integer(0)
 link(onNextCase,16045228:doCase,[])
 link(onTrue,15247018:doWork1,[(471,167)])
}
Add(HubEx,13621991,369,154)
{
 link(onEvent,11374066:doPosition,[])
}
Add(Case,16045228,483,154)
{
 Value=Integer(-1)
 DataOnTrue=Integer(59)
 link(onNextCase,15526570:doText2,[])
 link(onTrue,15247018:doWork2,[(527,167)(527,194)])
}
Add(HubEx,15247018,467,188)
{
 Angle=2
 link(onEvent,13621991:doWork3,[(373,194)])
}

function MessageBoxA(hwwnd: integer; lpText, lpCaption: PChar; uType: integer): Integer; stdcall; external 'user32.dll';

x := MessageBoxA(hwnd, PChar("text"), PChar("caption"));