PlayFunktion immer nur beim 2. Anlauf

[DelphiUser7]

Wieso sollte der Fehler in den Proceduren liegen, allenfalls doch bei OnCreate, oder?; der Fehler muss allgemeiner ausfallen, sonst wäre es ja nicht überall der Fall ;
Trotzdem, wenn du glaubst, es hilft dir bzw. mir, poste ich dir mal ein paar Sources, an denen es liegen könnte; denn meine ganze Datei ist ca. 800 Zeilen lang, also viel zu lang, um gepostet zu werden ;
Play-Button

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var a: integer;
begin
  If Mediaplayer1.Mode = mpOpen then Mediaplayer1.Close;
  If PlayL1.Items.Count = 0 then begin
      Mediaplayer1.FileName := FileLoad1.FileName;
    end else begin
      Mediaplayer1.FileName := PlayL1.Items.Strings[PlayL1.ItemIndex];
   end;
   if Mediaplayer1.Mode = mpPlaying then begin
    Mediaplayer1.FileName := PlayL1.Items.Strings[PlayL1.ItemIndex];
    Stunden := 0; Minuten := 0; Sekunden := 0;
    TimePanelMain.Caption := '00:00:00';
    Mediaplayer1.StartPos := 0;
    mediaplayer1.Play;
   end;
    myLabel.Enabled := true;
    myLabel.Caption := Mediaplayer1.FileName;
    mediaplayer1.Open;
    Mediaplayer1.Play;
    Timer1.Enabled := True;
   if Mediaplayer1.Position := mediaplayer1.Length then begin
    mediaplayer1.Play; //...hier ist noch eine 'Baustelle' => s.o.: var 'a'
   end;
end;

, mehr fällt mir dazu jetzt nicht ein...doch, dieses OnCanClose-Ereignis von FileLoad1 (=> mein OpenDialog):

Delphi-Quellcode:

procedure TForm1.fileLoad1CanClose(Sender: TObject; var CanClose: Boolean);
begin
  try
    Mediaplayer1.FileName := FileLoad1.FileName;
    Mediaplayer1.Open;
  except
    Mediaplayer1.FileName := '';
    ShowMessage('KEINE GÜLTIGE DATEI');
    CanClose := false;
  end;
end;

DelphiUser7