Леонид, а если так:
[code:1]Add(Counter,2961619,294,161) {
Max=99
link(onNext,12548328:doLength,[])
}
Add(Timer,4661297,238,161)
{
Interval=100
link(onTimer,2961619:doNext,[])
}
Add(Length,12548328,343,161)
{
link(onLength,15806471:doCopy,[])
}
Add(Edit,13475235,490,161)
{
Left=60
Top=80
Width=135
DataType=1
}
Add(Copy,15806471,392,161)
{
Count=100
link(onCopy,15024391:doStrCat,[])
link(Str,11392459:Text,[])
}
Add(Edit,11392459,392,98)
{
Left=110
Top=35
Text="0000"
}
Add(StrCat,15024391,441,161)
{
link(onStrCat,13475235:doText,[])
link(Str2,2961619:Count,[(454,151)(358,151)(358,209)(300,209)])
}[/code:1]