Also wenns wirklich immer schön die volle Minute sein soll, würde ich das so machen:
Delphi-Quellcode:
// OnTimer
begin
if (MinuteOf(Now) mod 10 = 0) and SecondOf(now) = 0 then // runde 10 Minuten, Bedingung nochmal überprüfen
begin
// Machwas
Timer1.Interval := 570*1000; // 9 Minuten und 30 Sekunden
end
else
begin
Timer1.Interval := 400;
// 0,4 Sekunden, damit sollte sichergestellt sein
// dass es ein Timer-Event gibt, wenn die Sekunden 0 sind.
end;
end;
Aber ist nur so ne Idee
