질문 1

mp3재생이 끝나면 Progress  함수를 실행 시키려고 하는데요...

소스는

procedure Tpart1.AAA
begin
  MediaPlayer1.FileName := Table1.Fields.Fields[1].Text;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  IF  MediaPlayer1.Stop = true then   Progress;
end;

이렇게 해봤는데 안돼서요 다른 방법이 머가 있을까요?