Если я правильно понял то вот:
[code:1]Add(MainForm,6330777,35,63) {
Left=20
Top=105
Width=230
Height=87
Caption="CS CD-ROM the Manager"
BorderStyle=3
}
Add(Button,16248532,112,161)
{
Left=120
Top=25
Width=95
Caption="Закрыть дверцу"
link(onClick,12626224:doClose,[(152,167)(124,167)])
}
Add(CDROM,12626224,182,154)
{
}
Add(Button,15496296,112,112)
{
Left=10
Top=25
Width=100
Caption="Открыть дверцу"
link(onClick,12626224:doOpen,[(163,118)(163,160)])
}
Add(ChangeMon,11440437,182,224)
{
link(onData,9999007:doEvent,[])
link(Data,12626224:isCDInside,[])
}
Add(Label,7503485,392,231)
{
Left=20
Top=5
Width=185
}
Add(DoData,12138169,315,231)
{
Data=String(Диск вставлен)
link(onEventData,11291893:doWork2,[])
}
Add(Timer,13915770,112,224)
{
Interval=500
link(onTimer,11440437:doData,[])
}
Add(IndexToChanel,9999007,245,224)
{
Point(Index)
link(onEvent1,3077162:doData,[(296,230)(296,188)])
link(onEvent2,12138169:doData,[])
}
Add(HubEx,11291893,364,224)
{
link(onEvent,7503485:doText,[])
}
Add(DoData,3077162,315,182)
{
Data=String(Диск отсутвует)
link(onEventData,11291893:doWork1,[(368,188)])
}
[/code:1]