Помогите исправить

[L_M]

Люди! Помогите исправить ошибку:

procedure TForm1.Button2Click(Sender: TObject);
begin
if fp then begin
    MediaPlayer1.FileName:=ListBox1.Items.Strings[i];
    MediaPlayer1.Open;
    MediaPlayer1.Play;
end;
end;


procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
    MediaPlayer1.Stop;
    If (MediaPlayer1.Mode=mpStopped) then begin
        i:=i+1;
        If ListBox1.Items.Strings[i]<>s then begin   //проверка достижения конца
            Form1.Button2Click(Form1);
        end else begin
            i:=0;
            fp:=false;     //чтобы не повторялось второй раз
        end;
    end;
end;

Воспроизводиться только один звук, то первый, то второй, то последний(тестировал с 5 звуковыми файлами). При отладке - пошаговом выполнении все идет нормально. Список файлов в листбоксе.

[puporev]

If ListBox1.Items.Strings[i]<>s then begin //проверка достижения конца

Это не проверка достижения конца, а проверка несоответствия одной величины другой. Конец определяют так:
If ListBox1.Items.Strings[i]<=s then begin

[L_M]

я так исправил, но все равно только первый звук играет. Что можно еще сделать?

[Snoopy]

Так вы же обнуляете i когда у вас значени не совпадают с s!

If ListBox1.Items.Strings[i+1]=<s then
        begin  
             i:=i+1; 
            Form1.Button2Click(Form1);
        end