uhr mit TTimer

[hamster1989]

hallo, ich hoffe die Kategorie passt bin mir aber nicht sicher da die meisten Themen und Begriffe mir nicht viel sagen da ich Programmieranfänger bin. Jedenfalls hab ich bei meiner Uhr das Problem, dass jedesmal wenn die sekunde einen vorspringt die Minute dasselbe tut.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

begin
 if sec < 60 then
   sec:= sec+1
 else
   sec:= 1;
   min:= min+1;
   label1.Caption:= inttostr(std) + ':'+ inttostr(min) +':'+ inttostr(sec);
end;

ansonsten suche ich noch die Postingregeln vom Forum die habe ich leider auch nicht gefunden.

ich bin für jeden tipp dankbar