Musik Liste geht nich

[jonsen2.0.0.9]

Hallo,

so hab da ma versucht nen Programm zu schreiben dass die gesamte musik die in C:\Dokumente und Einstellungen\* ist in eine Liste (Checklistbox2)
schreiben soll und dann alle man auf "check" setzt abspielt nur leider spielt er immer nur den letzten track ab....

so holt es die Musik:

Delphi-Quellcode:

begin
 if DirectoryExists('C:\Dokumente und Einstellungen\') then
   FindFiles ('C:\Dokumente und Einstellungen\', '*.mp3', True, CheckListBox2.Items)
   else
 CheckListBox2.Items.Text:='Keine .mp3 Dateien in C:\Dokumente und Einstellungen';
end;

so spielt der ab:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
 Var i:integer;
begin
for i:=0 to CheckListBox2.Items.Count do
begin

  if (CheckListBox2.Checked[i] = true) then           {Fehler liegt in dieser Schleife....weiss nich wie man die Schleife "Pausiert"}
  begin
    a:=CheckListBox2.Items.Strings[i];                {a ist ein string der für den Pfad der Datei steht}
    MediaPLayer1.FileName:=a;
    MediaPlayer1.Open;
    MediaPlayer1.Play;
  end

end;

end;

Hoffe könnt mir helfen!