Вопрос по Delphi MediaPlayer

const
  ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
begin
  with Sender as TMediaPlayer do
  begin
    if ModeStr[Mode]<>'Stopped' then exit;
    if i=ListBox1.Count-1 then <---если проигрывается последний в списке
      begin
        i:=0;
        MediaPlayer1.FileName:=ListBox1.Items.Strings;
        MediaPlayer1.Open;
        MediaPlayer1.Play;
      end;
    if i<>ListBox1.Count-1 then <----если не последний
      begin
        i:=i+1;
        MediaPlayer1.FileName:=ListBox1.Items.Strings;
        MediaPlayer1.Open;
        MediaPlayer1.Play;
      end;
    Notify := True;
  end;