Midi - tocando sem usar o midiaplayer

uses 

  MMSystem; 

procedure TForm1.Button1Click; 

const 

  FileName = 'C:\YourFile.mid'; 

begin 

  MCISendString(PChar('play ' + FileName), nil, 0, 0); 

end;