вот таков алгоритм:
[code:1]Add(Timer,6952708,42,182) {
Interval=33
link(onTimer,15921913:doEvent1,[])
}
Add(MouseEvent,15525188,182,126)
{
}
Add(ChangeMon,6131145,182,189)
{
link(onData,3773688:doWork2,[])
link(Data,15525188:MouseX,[])
}
Add(ChangeMon,4525749,189,231)
{
link(onData,3773688:doWork3,[(228,237)])
link(Data,15525188:MouseY,[])
}
Add(Hub,15921913,91,182)
{
OutCount=4
link(onEvent1,4861330:doData,[])
link(onEvent2,6131145:doData,[])
link(onEvent3,4525749:doData,[(156,202)(156,237)])
link(onEvent4,15716700:doCompare,[(146,209)(146,272)])
}
Add(Memory,4800299,294,182)
{
Default=Integer(1)
}
Add(DoData,4861330,245,182)
{
Data=Integer(0)
link(onEventData,4800299:doValue,[])
}
Add(HubEx,3773688,224,182)
{
link(onEvent,4800299:doClear,[])
}
Add(If_else,15716700,294,266)
{
Op2=Integer(1)
link(onTrue,5376374:doData,[(338,272)(338,251)])
link(onFalse,4171034:doData,[(338,279)(338,300)])
link(Op1,4800299:Value,[])
}
Add(DoData,5376374,350,245)
{
Data=String(двигается)
link(onEventData,13307671:doWork1,[(410,251)])
}
Add(DoData,4171034,350,294)
{
Data=String(не двигается)
link(onEventData,13307671:doWork3,[(410,300)])
}
Add(Label,11456259,434,266)
{
Left=75
Top=45
}
Add(HubEx,13307671,406,259)
{
link(onEvent,11456259:doText,[])
}
[/code:1]
перевести в Delphi не сложно думаю 8-)