#pas unit hitestmidi; interface uses Kol,Share,Debug, bass, bassmidi; type THItestmidi = class(TDebug) private public _event_on_init:THI_Event; procedure _work_InInit(var _Data:TData; Index:word); end; implementation procedure THItestmidi._work_InInit; begin end; end.