Countdown und Delay

[Smartin]

Da ich mich jetzt schon so halb in das Wochenende verabschiede (d.h. ich habe keinen Zugriff mehr auf meinen privaten Rechner), möchte ich euch noch kurz etwas mehr Code zu meinem Problem geben. Vielleicht hilft das weiter.

Delphi-Quellcode:

procedure CountdownOn(Zeit:Int64);
//Schaltet den Countdown an

begin
     counter:=Zeit;
     Form_test.Button_Start.Enabled:=false;
     Form_test.Edit_maxDurchl.Enabled:=false;
     Form_test.Timer_CountDown.Enabled:=true;
end; //END CountdownOn


procedure CountdownOff;
//Schlatet den Countdown aus

begin
     Form_test.Timer_CountDown.Enabled:=false;
     Form_test.Button_Start.Enabled:=true;
     Form_test.Edit_maxDurchl.Enabled:=true;
end; //END CountdownOff


procedure test;
// Startet den Test

begin
     //Initalisierung
     repeat
        //Testreihen gernerieren 
        //Ausgabe 
        Wartezeit:=random(60001); 
        CountdownOn(Wartezeit); 
        //Test auswerten 
        Pausenzeit:=random(18001); 
        CountdownOn(Pausenzeit);
     until {Abbruchbedingung};
     //Daten speichern
       
end; //END test


procedure TForm_test.Timer_CountDownTimer(Sender: TObject);
//Timer

begin
     counter:=counter-1000;
     Label_Wartezeit.Caption:='Verbleibende Wartezeit: '+IntToStr(round(counter/1000))+' s';
        If counter<=0 then CountdownOff;
end; //END Timer_CountDownTimer

Martin Schmidt.