Countdown funktioniert nicht richtig?!

[BullsEye]

Delphi-Quellcode:

procedure TForm2.Timer3Timer(Sender: TObject);
VAR
EndDatum : TDateTime;
Aktuell : TDateTime;
Dazwischen : Integer;
Tage, Stunden, Minuten, Sekunden : Integer;
BEGIN
// Countdown
   DateTimePicker1.Time := DateTimePicker2.Time;
   EndDatum := DateTimePicker1.DateTime;
   Aktuell := Now;
   Dazwischen := SecondsBetween(Aktuell, EndDatum);
   Tage := Dazwischen div (60*60*24);
   Dazwischen := Dazwischen - (Tage * 60 * 60 * 24);
   Stunden := Dazwischen div (60*60);
   Dazwischen := Dazwischen - (Stunden * 60 * 60);
   Minuten := Dazwischen div 60;
   Dazwischen := Dazwischen - ( Minuten * 60);
   Sekunden := Dazwischen;
   Form1.Label4.Font.Color := clred;
   Form1.Label4.Caption := Format('%d Tage, %d Stunden, %d Minuten & %d Sekunden bis ' + Edit5.Text + '!', [Tage, Stunden, Minuten, Sekunden]);
IF (Tage <= 0) AND (Stunden<=0) AND (Minuten<0) AND (Sekunden<=0) THEN BEGIN  // <--------------------
IF CheckBox10.Checked THEN BEGIN
sndPlaySound(PChar(ExtractFilePath(ParamStr(0)) + 'Wecker.wav'),SND_ASYNC);
END;
 ShowMessage('Ihr Countdown ist nun beendet! '+ (Edit5.text));
Form1.Label4.Hide;
sndPlaySound(nil,0);
END;
END;

So hab ich das nun aber irgendwie bekomm ich gar keine Meldung mehr?!

Nach DeddyH's Vorschlag:

Delphi-Quellcode:

procedure TForm2.Timer3Timer(Sender: TObject);
VAR
jetzt, ziel, erg : TDateTime;
BEGIN 
jetzt := now;
ziel := DateTimePicker1.Date + DateTimePicker2.Time;
erg := ziel - jetzt;
IF erg <= 0 then BEGIN
IF CheckBox10.Checked THEN BEGIN
sndPlaySound(PChar(ExtractFilePath(ParamStr(0)) + 'Wecker.wav'),SND_ASYNC);
END;
 ShowMessage('Ihr Countdown ist nun beendet! '+ (Edit5.text));
Form1.Label4.Hide;
sndPlaySound(nil,0);
end;
end;