1:
2:
3:

If (ATime=Time) and
   (ADate=Date) then
   Form2.ShowModal;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

...
 Uhrzeit, Datum : String; // Globale Variablen
...
 Uhrzeit = ZeitEdit.Text; // Wenn auf deinen "Start"Button geklickt 
 Datum = DatumEdit.Text;   // wird wird das hier in die Variablen geschrieben.
...
 Timer.Enable := True; // Hier wird ein Timer gestartet der Überprüft wie spät es ist.
...
// Im Timer
 UhrzeitX = TimeToStr (Time);
 DatumX = DateToStr (Date);
 IF UhrzeitX = Uhrzeit then
  if DatumX = Datum then
   begin
    //Dieses und jenes Passiert
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

//Uhrzeit und Datum anzeigen****************************************************
procedure TForm1.Timer1Timer(Sender: TObject);

var
  ATime: TDateTime;
  ADate: TDateTime;
begin
      Label7.Caption:= Timetostr(Time);
      Label9.Caption:= Datetostr(Date);

//Wenn Zeit erreicht
 if (ATime = Time) then
 if  (ADate = Date) then
    begin
    Form2.ShowModal
    end;
end;


//Weckzeit und Datum************************************************************
procedure TForm1.Button1Click(Sender: TObject);
var
  ATime: TDateTime;
  ADate: TDateTime;

begin
      ATime := StrToTime(Edit1.Text);
      ADate := StrToDate(Edit2.Text);
if    ATime > Time then
if    ADate >= Date then
      ShowMessage('Wecker eingestellt')
else
      ShowMessage('Ungültige Zeit/Datum');
end;					

1:

If (aTime=Time) and (aDate=Date)					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var std1, min1, min1, ms1, 
    std2, min2, sek2, ms2  :Word;
...
...
  DecodeTime(Time, std1, min1, sek1, ms1);
  DecodeTime(aTime, std2, min2, sek2, ms2);
  if (Date=aDate) and ((sdt1=std2) and (min1=min2) and (sek1=sek2)) then Form2.ShowModal;
...
...					

1:

if aktuelle zeit > Weckzeit					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if FormatDateTime('hh:mm:ss',Time)>'09:40:00' then
  Caption:='Es ist 9:40 Uhr';
  if FormatDateTime('hh:mm:ss',Time)>'09:41:00' then
  Caption:='Es ist 9:41 Uhr';
end;