Pon un componente TMediaPlayer y en ejecución le cargas el fichero de música que quieras reproducir.
Código Delphi
[-]
procedure TForm1.button1Click(Sender: TObject);
begin
MediaPlayer1.FileName := 'C:\Musica.mid';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;