wie wäre es mit einer Bool variable, die abgefragt wird und wenn der Timer läuft true ist, sonst false
Delphi-Quellcode:
procedure test;
begin
if not TimerRuns then
begin
//Testreihen gernerieren
//Ausgabe
Wartezeit:=random(60001);
CountdownOn(Wartezeit);
//Test auswerten
Pausenzeit:=random(18001);
CountdownOn(Pausenzeit);
TimerRuns := True;
end;
end;
im Timer (am Ende) TimerRuns wieder auf False