Schleifenfunktion?

[BullsEye]

Zitat von mkinzler:

Das wird ja von Windows erledigt

Ja schon aber wenn ich das nicht wieder schließe hab ich ja nach nem Tag X geöffnete Fenster

Ich hab es nun mal so gemacht aber iwie stimmt das was nicht.

Delphi-Quellcode:

procedure TfrmMain.CheckBox1Click(Sender: TObject);
VAR stunden, i : longint;
begin
IF (CheckBox1.Checked = true) THEN BEGIN
stunden := StrToInt(Edit2.text);
stunden := stunden * 3600000;
END;
FOR i := 1 TO 2 DO
BEGIN
Button1.Click;
sleep(1000);
END;
i := i-1;
end;

Ich hab ein Prog (siehe Bild im Anhang) und da soll das so geschehen, das sich alle 3 Stunden Button1 geclickt wird