MediaPlayer - как сделать последовательное воспроизведение mp3 файлов (именно mp3)

[Kashp]

делаю так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if not Timer1.Enabled then Timer1.Enabled:=true;
MediaPlayer1.FileName:=Form2.ListBox1.Items[0];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
i:=0;
If MediaPlayer1.Position=MediaPlayer1.Length then
begin
inc(i);
if i > Form2.ListBox1.Items.Count -1 then i:=0;
MediaPlayer1.FileName:=Form2.ListBox.Items[i];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

end;

В итоге проигрывается 1-й трек, потом 2-й трек, и вместо включения 3-го трека происходит зацикленное воспроизведение 2-го трека
Что я не так сделал?

[mutabor]

переменная i должна быть глобальная, и не забудь из таймера эту строку убрать

i:=0;

[Kashp]

mutabor, спасибо тебе огромное!!! Все заработало!

[KORN]

когда я писал проограмму то использовал не медиаплеер и бассплеер но там легко разобраться в работе. для воспроизведения я использовал процедуру PlayFIle? приважу ее пример

 
var
  Form1: TForm1;
  list, templist: tstrings;    // list - основной плейлист, templist - вспомогаетльный плелист
  t, tmp, index: integer;             // t - текущий трек, tmp - номер предыдущего проиграннового трека
  playf, timer, progress: boolean;              // показывает проигрывается в данный момент трек или нет
  temp: string;                // называние предыдущего проигранного трека
implementation
{$R *.dfm}
procedure tform1.num;
begin
  if t=list.Count-1 then       // если текущий трек = последней строчке тогда t=0 иначе t=t+1
  t:=0
  else
  t:=t+1;
end;
procedure tform1.playfile;
begin
  try                          // исклюистеьлная ситуация срабатывает если возникает ошибка
  if (list.Text<>'') then      // если плейлист не пуст
  begin
    with BASSPlayer1 do
    begin
    open(list.Strings[t]);                      //указываем имя файла и открываем его
    slider1.MaxValue:=playlength;  // устанавливаем максимальное значение slider'u = длине трека
    play;                      // воспроизводим
    playf:=true;               // показывам что трек воспроизведен
    timer1.Enabled:=true;      // запускаем таймер
    tmp:=t;                    // запоминаем номер выбранного трека
    temp:=listbox1.Items.Strings[t]; // запоминаем называние выбранного трека
    end;
  end
  else
  messagebox(handle, 'No Files', Pchar(appname), MB_ICONERROR+MB_OK); // если плейлист пуст то выдаем сообщение
  except                       // при возникновении ошибки делаем рекурсию т.е. переходи к следующему треку в плей листе
  num;
  playfile;
  end;
end;
а вот обработчик событий для timer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  try
  with BASSPlayer1 do
  begin
  if progress then
  slider1.Value:=Position;
 
    if playlength=position then
    begin
      if temp<>''then
      listbox1.Items.Strings[tmp]:=temp;
    num;
    playfile;
    end;
  end;
  except
  end;
end;