mediaplayer1 datei abspielen zur korrekten zeit

[danku]

Das Problem liegt bei if Now =StrToDateTime(WeckTime)

Delphi-Quellcode:

// 3 Editfelder
WeckTime:= edhours.Text + ':' + edmin.Text + ':' + edseconds.Text ;


//***********************************//
//Musikdatei via topendialog
  if cbsignal.checked  Then
  else begin
      cbsignal.Checked:=true;
      opendialog1.Execute;
      label2.Caption:=opendialog1.FileName;
      end;


Warum öffnet sich opendialog1 2x?
//**********************************//


//Radiogroup mit 3 Editfeldern
  if (rgzwei.Checked = true) then
  begin 
  //wenn nicht opendialog1
      if not (canvas.TextWidth(label2.Caption)>1) Then   
          begin
         // timer.Enabled:=false;
          opendialog1.Execute;
         // timer.Enabled:=true;
          end
          else begin
             if Now =StrToDateTime(WeckTime) then begin
              fileopen:= Label2.caption;
              With MediaPlayer1 do begin
               Filename := opendialog1.filename;
               Open;
               Play;
               timer.Enabled:=false;
               end;
             end
          end;
       end
    end;