: 답변 감사합니다. 하지만 제가 원하는바와 같이 mp3재생이 실행되면 progress 함수가 실행되는게 아니라
:
: mp3재생이 실행되고 재생이 끝나면 progress함수가 실행되야 합니다.
:
: 아래 소스는 제가 적용시킨 소슨데 잘못된곳 있으면 지적 바랍니다.
:
: procedure Tpart1.Part1Quiz;
: begin
:   MediaPlayer1.FileName := Table1.Fields.Fields[1].Text;
:   MediaPlayer1.Open;
:   MediaPlayer1.Play;
:
:   Image2.Picture.LoadFromFile(Table1.Fields.Fields[3].Text);
:   If MediaPlayer1.NotifyValue = nvSuccessful then Progress;
: end;


procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.NotifyValue = nvSuccessful then ShowMessage('정상적인 음악 종료!!!');
end;

위 프로시져는 TMediaPlayer의 이벤트 입니다. 폼위에 올려놓으신 TMediaPlayer를 클릭하시고 Object Inspect의 이벤트 항목의 OnNotify 이벤트 입니다... 해당 이벤트를 클릭하시면 위 프로시져가 자동으로 생성되고 거기에
  if MediaPlayer1.NotifyValue = nvSuccessful then Progress;
위 부분만 추가 하시면 되겠네요.