Muß ich dann das Ereignis in den Timer mit reinsetzen oder mach ich bei Form.Create einfach folgendes:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
Ereignis;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := (random(3600)+60) * 1000; // 1 bis 60 Minuten
end;
P.S. Das Ereignis soll erst nach abgelaufener Zeit eintreten.