Hochzählen und dabei gleichzeitig anzeigen

[Schaedel]

Delphi-Quellcode:

begin 
     teil_sekunde := 0; 
     sekunde := 0; 
     inc(teil_sekunde); 
     If teil_sekunde >= 6 then begin 
       inc(sekunde); 
       label1.caption := Inttostr(sekunde); 
     end; 
     Form1.refresh; 
   end;

Ich stelle mir das anders vor ... das funktioniert glaube ich auch nicht richtig ...

Delphi-Quellcode:

var zahl1 , Sekunde: integer;
begin 
     inc(Zahl1); 
     If (Zahl1 mod  6 = 0 )then begin 
       inc(sekunde); 
       label1.caption := Inttostr(sekunde); 
       inc(Zahl1)
     end else begin 
       label1.caption := Inttostr(sekunde); 
       inc(Zahl1);
     end; 
     Form1.refresh; 
   end;