Pfad aus ListBox für Bass.dll auslesen

[Marcasso]

also das hat soweit schon ganz gut geklappt, nur wenn ich zum letzten, bzw wieder zum ersten lied springe stürzt er ab...

ich habe eine extra unit procedures in der die procedure MPplay ist:

Delphi-Quellcode:

procedure MPPlay(PlayMp:Boolean);
var pfad :string;
begin
  if form2.ListA.Count <> 0 then
    begin
     pfad := form2.ListA.Items.Strings[form2.listA.itemindex];
     form1.MP.play(pfad);
     form1.bar.Max := form1.MP.length;
     form1.timer1.Enabled := true;
    end;
  end;

der play button

Delphi-Quellcode:

procedure TForm1.PlayClick(Sender: TObject);
var pfad:string;
begin
  procedures.MPPlay(true);
end;

vor

Delphi-Quellcode:

procedure TForm1.vorClick(Sender: TObject);
var pfad:string;
begin
  form2.ListA.ItemIndex:=form2.ListA.ItemIndex+1;
  pfad := form2.ListA.Items.Strings[form2.listA.itemindex+1];
  procedures.MPPlay(true);
end;

und zurück

Delphi-Quellcode:

procedure TForm1.rueckClick(Sender: TObject);
var pfad:string;
begin
  form2.ListA.ItemIndex:=form2.ListA.ItemIndex-1;
  pfad := form2.ListA.Items.Strings[form2.listA.itemindex-1];
  procedures.MPPlay(true);
  bar.Max := MP.length;
end;