Реализовал вот так:
Add(MainForm,2953706,21,105)
{
Width=428
Height=667
}
Add(Sleep,18303,455,210)
{
Delay=500
link(onSleep,9458284:doStop,[(506,216)(506,195)])
}
Add(MMTimer,2862013,329,182)
{
Resolution=0
Interval=1
AutoStop=100
link(onTimer,486769:doEvent1,[])
}
Add(Hub,486769,392,182)
{
link(onEvent1,9458284:doStart,[])
link(onEvent2,18303:doSleepMks,[(434,195)(434,216)])
}
Add(TimeCounter,9458284,525,182)
{
Precision=1
link(onStop,2675712:doAdd,[(604,195)(604,202)])
}
Add(Label,9633999,665,364)
{
Left=195
Top=160
}
Add(Memo,2675712,651,196)
{
Left=310
Top=25
Height=590
}
Add(Button,39262,329,357)
{
Left=76
Top=134
Width=90
Height=30
Font=[Arial,8,0,0,1]
Caption="Start"
link(onClick,3645288:doTimer,[])
}
Add(Sleep,3087436,525,385)
{
Delay=500
link(onSleep,1343225:doStop,[(576,391)(576,370)])
}
Add(MMTimer,3645288,399,357)
{
Resolution=0
Interval=1
Enable=1
link(onTimer,4734762:doEvent1,[])
}
Add(Hub,4734762,462,357)
{
link(onEvent1,1343225:doStart,[])
link(onEvent2,3087436:doSleepMks,[(504,370)(504,391)])
}
Add(TimeCounter,1343225,595,357)
{
Precision=1
link(onStop,9633999:doText,[])
}
Add(Button,9794326,329,406)
{
Left=76
Top=169
Width=90
Height=30
Font=[Arial,8,0,0,1]
Caption="Stop"
link(onClick,3645288:doStop,[(380,412)(380,370)])
}
Add(Label,11211020,21,147)
{
Left=265
Top=5
Width=149
Height=17
Caption="Сгенерировало 100 событий"
}
Add(Label,2291151,21,196)
{
Left=75
Top=105
Width=122
Height=17
Caption="Постоянный генератор"
}
Add(StyleXP,739424,21,245)
{
}
Довольно точно генерит
перезалил.