var   dvcinfo   :BASS_MIDI_DEVICEINFO;
      n         :PAnsiChar;
begin
  dvcinfo.name:=PAnsiChar('Туто текст для записи');
  BASS_MIDI_InGetDeviceInfo(device, dvcinfo);
  n:=dvcinfo.name;//а это записывает значение name в переменную n
end;