아래 게시물을 수정해서 올립니다

MP3파일을 미디어플레이로 재생시키려합니다
한개의 MP3파일은 재생이 잘되는데 여러개 MP3파일을
연속해서 재생하려고 타이머를 써서
아래와 같이 해보았는데
DeviceId체크에서 걸려 진행을 못하고 있습니다
잘 아시는 분 수정 부탁드립니다
타이머가 아니더라도 방법이 있으면
가르쳐주세요
<!--CodeS-->
procedure TForm1.MusicStart(Sender: TObject);
begin
With MediaPlayer1 do
Begin
  if DeviceID <> 0 then Exit;

  Visible:= False;
  fileName :=arrayMP3File[0];
  Open;
  Play;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//타이머를 돌리셔서 Mediaplayer의 상태를 체크하였습니다.

if mediaplayer1.mode = mpStopped then begin
inc(m);
  With MediaPlayer1 do
  Begin
    if DeviceID <> 0 then begin
      Exit;
    end;

    fileName :=arrayMP3File[m];
    Open;
    Play;
  End;
// 다음 배열의 파일을 오픈해서 플레이 한다.
end;

end;
<!--CodeE-->