var   h       :integer;
      info    :BASS_MIDI_DEVICEINFO;
begin
  h := 0; 
  info.name :=PAnsiChar('Test string) ;
  if BASS_MIDI_InGetDeviceInfo(h,info) then _hi_onEvent(_event_on_InGetDeviceInfo,info)
  else _hi_onEvent(_event_on_error);
end;