PlayFunktion immer nur beim 2. Anlauf

[DelphiUser7]

Sorry, dass ich schon wieder poste, aber ich werd mit dem Problem hier echt nicht fertig:
Bei jedem 2. Aufruf von mediaplayer1.play wird dieser Befehl nicht ausgeführt, es sei denn ich habe vorher mediaplayer1.Stop ausgeführt bei mir: den Stop-Button gedrückt; dann führt er eigenartiger Weise bei jedem 'Anlauf' mediaplayer1.play aus;
Weiß einer von euch vielleicht, wie ich dieses Problem lösen kann?; ihr seid dann auch für einige Zeit von meinen Fragen 'befreit'!!!
Hier der Code von meinem Öffnen-Button, da ich annehme, dass es damit irgendwie zusammenhängt, denn der Fehler tritt ja nicht nur beim Betätigen des Play-Buttons auf, sondern wirklich wie schon beschrieben bei jeder Art der Ausführung von mediaplayer1.play;

Delphi-Quellcode:

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
 with fileLoad1 do begin
  Filter := 'mp3-Files(*.mp3)|*.mp3|Wav-Files(*.wav)|*.wav|MIDI-Files(*.mid)|*.mid|Alle Audiodateien(*.mp3,*.wav,*.mid)|*.mp3;*.wav;*.mid';
 end;
  if fileLoad1.Execute then
 begin
  Ticks;
  mediaplayer1.FileName := FileLoad1.FileName;
  mylabel.Enabled := true;
  myLabel.Caption := mediaplayer1.FileName;
  mediaplayer1.Open;
  TrackPane;
  newplaylist := TStringList.Create;
  c := PlayListBox.Items.Count;
  newplaylist.Add(Mediaplayer1.FileName);
  PlayListBox.Items.Clear;
  PlayListBox.Items.AddObject('PlayList001', newplaylist);
  PlayL1.Items.Count;
  if PlayL1.Items.Count = -1 then
   begin
    ClearSel1.Enabled := false;
   end else begin
    ClearSel1.Enabled := true;
   end;
  if not PlayL1.Items.Count = -1 then
   begin
    newplaylist.clear;
    newplaylist.Add(Mediaplayer1.fileName);
   end;
  PlayL1.Clear;
  PlayL1.Items.Assign(newplaylist);
  PlayListBox.ItemIndex := 0;
  PlayL1.ItemIndex := 0;
  ButtonsEnable;
  mediaplayer1.Play;
  Stunden:=0; Minuten:=0; Sekunden:=0;
  Timer1.Enabled := True;
  TimeBar.Enabled := true;
 end else begin
  Exit;
 end;
end;

Man könnte jetzt natürlich annehmen, dass das standardmäßig ist; ist es aber nicht, weiß auch nicht was ich da falsch gemacht haben könnte; auf jeden Fall ging es auch mal anders...;

In diesem Sinne
DelphiUser7