Lied im MediaPlayer erst nach ein paar Sekunden abspielen

[Progman]

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  TimeToRun:=5;
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //solange TimeToRun größer Null nur anzeigen und weiterzählen
  Label1.Caption:='Zeit bis zum Start: '+IntToStr(TimeToRun)+' sek.';
  if TimeToRun = 0 then begin
    Timer1.Enabled:=False; //Timer anhalten
    //Sound starten
    MediaPlayer1.FileName:='test.wav'; //muss im selben Verz. sein
    MediaPlayer1.Open;
    MediaPlayer1.Play;
  end;
  dec(TimeToRun); //um 1 erniedrigen
end;

Das kriegt er zu sehen, wenn er F12 drückt, da ist ganz deutlich FormShow