Schleifenfunktion?

[Klaus01]

Oder so:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  stunden: Integer;
  zeit: LongInt;
begin

  if checkbox1.Checked then
    begin
      stunden:=StrToInt(Edit1.Text);
      zeit:=stunden * 3600;
      Timer1.Interval:=zeit*1000;
    end;
  Timer1.Enabled:=checkbox1.Checked;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  button1.Click;
end;

Gute Nacht.
Grüße
Klaus