Schleifenfunktion?

[Klaus01]

ich finde es immer noch, dass der Ansatz falsch ist.
Aber Du willst es ja nicht anders.

Delphi-Quellcode:

procedure TfrmMain.CheckBox1Click(Sender: TObject);
VAR zeit, i : longint;
begin
  IF CheckBox1.Checked THEN 
    BEGIN
      zeit := StrToInt(Edit2.text);
      zeit := zeit * 3600;
    END;

    i:=0;
    // fast endlos Schleife
    while CheckBox1.checked do
    BEGIN
      if i = zeit then
        begin
           Button1.Click;
           i:=0
        end;
      //sleep(1000);
      delay(1000);
      inc(i,1000);
    END;

end;

Die delay Funktion findest Du hier im Forum.
Grüße
Klaus