Add(MainForm,2115198,21,105)
{
 Left=20
 Top=105
 Width=148
 Height=86
 Position=1
}
Add(InlineCode,3871392,224,154)
{
 WorkPoints=#6:doOpen|7:doClose|
 Code=#15:unit HiAsmUnit;|0:|9:interface|2:  |56:uses Kol,Share,Debug,windows,messages,shellapi,MMSystem;|0:|4:type|31: THiAsmClass = class(TDebug)   |10:   private|3:   |9:   public|15:   h:THI_Event;|0:|49:   procedure doOpen(var _Data:TData; Index:word);|50:   procedure doClose(var _Data:TData; Index:word);|3:   |5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doOpen;|5:begin|64: mciSendString(\'Set cdaudio door closed wait\', nil, 0, handle); |4:end;|0:|30:procedure THiAsmClass.doClose;|5:begin|62: mciSendString(\'Set cdaudio door open wait\', nil, 0, handle); |4:end;|0:|4:end.|
}
Add(Button,15597432,105,140)
{
 Top=5
 Width=140
 Cap