Per Zufall eine Zahl erzeugen und dann ein Ereignis

[ATSV]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
Timer1.Interval := (random(3600)+60) * 1000; // 1 bis 60 Minuten
end;

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

so müsste es sein