Countdown-Brauche Hilfe

[BullsEye]

Ok, so gehts. Hab die Klammern nur vergessen
Allerdings hab ich gemerkt, das er mir die Message nur ausgibt, wenn ich auf den Button klicke deshalb hab ich es nun auf einen Timer gesetzt

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
IF (Edit1.Text <= Label3.Caption) AND (Edit2.Text <= Label1.Caption)  THEN BEGIN
ShowMessage(Edit3.Text); END;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IF Timer2.Enabled = False THEN
Timer2.Enabled := true;

Damit er mir nicht dauerhaft die Message anzeigt wenn ich z.b. mit nem alten Datum starte hab ich den Timer disabled und auf Button Click wird er Enabled. Aber Ich will die Message NUR 1x angezeigt haben, wie bekomm ich sowas hin?

so???

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
IF Timer2.Enabled = False THEN
Timer2.Enabled := true
ELSE
Timer2.Enabled := false;
end;