음냐 2가지 방법이 있겠군요

한가지는 MCI 관련 API를 사용하는 것이고
또한가지는 TMediaplayer를 사용하는 방법입니다.

MCI관련 API 사용예 :

먼저 uses에 MMsystem을 삽입하고 아래를 코딩하세요
procedure TForm1.MCIplay(Value: String);
var
  mciOpenParms: TMCI_Open_Parms;
  mciPlayParms: TMCI_Play_Parms;
begin

  if Value = '' then begin
     mciSendCommand( wDeviceID, MCI_CLOSE, 0, 0 )
  end
  else
  begin

    FillChar( mciOpenParms, SizeOf( TMCI_Open_Parms ), 0 );
    FillChar( mciPlayParms, SizeOf( TMCI_Play_Parms ), 0 );
    with mciOpenParms do
    begin
      lpStrDeviceType := 'sequencer'; // Wave를 출력 할 거라고 알려준다.
      lpstrElementName := PChar( Value );
    end;

  if mciSendCommand( 0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT,
      Longint( @mciOpenParms ) ) = 0 then
    begin
      wDeviceID := mciOpenParms.wDeviceID;
      mciPlayParms.dwCallback := Handle;
      mciSendCommand( wDeviceID, MCI_PLAY, MCI_NOTIFY,
        LongInt(@mciPlayParms ) );

  end;
  end;
end;

wDeviceID는 먼저 TForm1 클래스에 word형으로 선언을 하셔야 겠습니다.
위함수의 value 인자에 듣고 싶은 mid파일을 떤져 주세요...

TMediaPlayer를 이용하는 예

procedure TForm1.Button2Click(Sender: TObject);
begin
  if openDialog1.Execute then begin
     MediaPlayer1.FileName := OpenDialog1.FileName;
     MediaPlayer1.Open;
     MediaPlayer1.Play;
  end;
end;

요런식으로 하면 되겠네요....

만약 이렇게 했는데 안되는 경우는 Midi sequencer의 볼륨을 의심해
봐야 겠군요

위의 내용은 POD14 호 에서 발췌했슴다.......