Playlist virker ik

Jeg er igang med at lave en playlist på dark's eks.:

if mediaplayer2.Position = mediaplayer2.Length then
begin
Nummer := Nummer +1;
Mediaplayer2.filename := Listbox1.Items.Strings[Nummer];
Mediaplayer2.open;
Mediaplayer2.play

hvor nummer er 0...


Men koden virker ikke helt... (dark kan godt få den til at virke...)
Se mit program på www.shafh.dk/Filer/ShafhPlayer4.zip


Hva er der galt... plz


Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Kode 

procedure TForm1.Timer9Timer(Sender: TObject);
begin
  if mediaplayer2.Position >= mediaplayer2.Length then
     begin
Nummer := Nummer +1;
if Nummer >= ListBox1.Count then begin Timer9.Enabled := False; Nummer := 0; Exit; end;
Mediaplayer2.filename := Listbox1.Items.Strings[Nummer];
Mediaplayer2.open;
Mediaplayer2.play
end;
end;

Kode 

procedure TForm1.Label20Click(Sender: TObject);
begin
Nummer := 0;
if ListBox1.Count < 1 then Exit;
MediaPlayer2.FileName := ListBox1.Items.Strings[0];
MediaPlayer2.Open;
MediaPlayer2.Play;
timer9.Enabled := true;
end;