Add(MainForm,2953706,21,105)
{
 link(onCreate,16219169:doTest,[])
}
Add(InlineCode,16219169,70,119)
{
 WorkPoints=#6:doTest|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses bassmidi,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|44:    procedure doTest(var dt:TData;Ind:Word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTest;|27:var s:BASS_MIDI_DEVICEINFO;|5:begin|76: if BASS_MIDI_InGetGeviceInfo(0,s) then _debug(s.name) else _debug('Error');|4:end;|0:|4:end.|
}