Auf Uhrzeit reagieren?

[Akut-Programming]

Danke erstmal, aber so wirklich hilfts mir nicht weiter... hier ist mal der Code.

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
   i: integer;
begin
     if FormatDateTime ('hh:nn', Now) = (MaskEdit1.Text)
     //if TimeToStr(NOW) > MaskEdit1.Text
     then begin
          if CheckBox1.Checked=false
          then begin
               Button1.Click;
          end else
          begin
               for i:=0 to ListBox1.Items.Count-1
               do begin
                  ShellExecute(Handle, 'open', pchar(ListBox1.Items.Strings[i]), nil, nil,SW_SHOW);
               end;
          end;
     end;
end;

...

procedure TfrmMain.Button1Click(Sender: TObject);
begin
     if Button1.Caption='Start'
     then begin
          if MaskEdit1.Text = '  :  '
          then begin
               Application.MessageBox('Geben Sie zunächst eine Uhrzeit ein','Eingabe fehlt',MB_OK + MB_ICONINFORMATION);
               FocusControl(MaskEdit1);
          end else
          begin
               Button1.Caption:='Stop';
               Image2.Enabled:=false;
               MaskEdit1.Enabled:=False;
               Timer1.Enabled:=true;
          end;
     end else
     if Button1.Caption='Stop'
     then begin
          Timer1.Enabled:=false;
          Button1.Caption:='Start';
          Image2.Enabled:=true;
          MaskEdit1.Enabled:=true;
     end;
end;