[defcon1_es]

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;