1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
begin
  UserIntervall := 10;  // in Sekunden (10 Sekunden)
  Timer1.Interval := 1000;  // 1 Sekunde
  ActCount := 0;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(ActCount);
  Label1.Caption := 'Zeit bis zur nächsten Aktion: ' + 
    IntToStr(UserIntervall - ActCount) + ' Sekunden.';

  // Wird alle x Sek ausgeführt, die der Benutzer eingegeben hat
  if ActCount mod UserIntervall = 0 then
  begin
    // Dein Code

    ActCount := 0;
  end;
end;