begin
Sekundy :=Sekundy+1;
if sekundy = 60 then
begin
sekundy := 0;
minuty := minuty+1;
sekundy := 0;
end
else if minuty = 60 then
begin
minuty := 0;
godziny := godziny+1;
end;
if sekundy < 10 then
begin
s := '0' + IntToStr(sekundy);
end
else
s := IntToStr(sekundy);
if minuty < 10 then
begin
m := '0' + IntToStr(minuty);
end
else
m := IntToStr(minuty);
if godziny < 10 then
begin
g := '0' + IntToStr(godziny);
end
else
g := IntToStr(godziny);
Label1.Caption := g+':'+m+':'+s;
end;
Zatrzymać stoper to nie problem inaczej jest już z wyzerowaniem go. Nie mam pojęcia jak go wyzerować,a potem zrobić by działał od nowa.