Alexanderpa, или так:
[code:1]Add(MainForm,2861347,91,105) {
Left=20
Top=105
Height=272
link(onCreate,6519951:doRandomize,[])
}
Add(Random,6519951,147,133)
{
Min=1
Max=24
link(onRandom,2364538:doRead,[(229,139)(173,139)])
}
Add(ArrayRW,2364538,196,133)
{
link(onRead,9241424:doText,[])
link(Array,6916006:Array,[])
}
Add(Label,9241424,238,133)
{
Left=135
Top=75
Width=95
Height=48
Font=[MS Sans Serif,24,1,0,1]
AutoSize=1
Alignment=2
}
Add(Button,11539510,49,56)
{
Left=40
Top=15
Width=320
Height=40
Font=[MS Sans Serif,14,1,0,1]
Caption="Нажми и будет тебе счастье!"
Data=String(Вот ОНО, твоё счастье!)
link(onClick,9028742:doEvent1,[])
}
Add(ListBox,6916006,182,70)
{
Left=465
Top=10
Height=255
Visible=1
Strings=#4:1234|4:1243|4:1324|4:1342|4:1423|4:1432|4:2134|4:2314|4:2341|4:2143|4:2413|4:2431|4:3124|4:3214|4:3241|4:3142|4:3412|4:3421|4:4123|4:4213|4:4231|4:4132|4:4312|4:4321|
DataType=1
}
Add(Memory,13075966,294,133)
{
Default=Integer(3214)
}
Add(Hub,9028742,91,56)
{
link(onEvent1,6519951:doRandom,[(135,62)(135,139)])
link(onEvent2,6287349:doCompare,[(129,69)(129,195)])
}
Add(If_else,6287349,259,189)
{
link(onTrue,3886318:doEvent1,[])
link(onFalse,11034952:doData,[(299,202)(299,209)])
link(Op1,9241424:Caption,[(265,177)(244,177)])
link(Op2,13075966:Value,[(272,177)(300,177)])
}
Add(Button,1218291,49,126)
{
Left=330
Top=210
Caption="Выход"
link(onClick,2861347:doClose,[])
}
Add(Label,14954254,406,189)
{
Left=30
Top=140
Width=325
Height=45
Font=[MS Sans Serif,24,1,0,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(DoData,11034952,308,203)
{
link(onEventData,3886318:doEvent2,[(348,209)(348,202)])
}
Add(Hub,3886318,357,189)
{
InCount=2
OutCount=1
link(onEvent1,14954254:doText,[])
}
[/code:1]