#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.