Delphi-Quellcode:
min:= min+1;
label1.Caption:= inttostr(std) + ':'+ inttostr(min) +':'+ inttostr(sec);
Der Code wird immer ausgeführt, da hinter der Alternativbedingung else kein begin ... end; folgt. D.h. nach dem else wird nur sec := 1 ausgeführt, danach ist die ganze if-Bedingungen abgearbeitet und der Code danach wird immer ausgeführt. ALso:
Delphi-Quellcode:
begin
if sec < 60 then
sec:= sec+1
else
begin
sec:= 1;
min:= min+1;
label1.Caption:= inttostr(std) + ':'+ inttostr(min) +':'+ inttostr(sec);
end;
end;