Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec:=sec+1;
if sec>59 then begin sec:=0; min:=min+1; end;
if min>59 then begin min:=0; ch:=ch+1; end;
statusbar1.Panels.Items[1].Text:=IntToStr(ch)+':'+IntToStr(min)+':'+IntToStr(sec);
end;таймер
Запостил: 
xXx_totalwar,
(Updated )
Где здесь говнокод, xXx_totalwar?
А интервал таймера меньше 10 мс вообще крайне сложно получить.
Я в точности так (как автор кода) делал часы под сигнальный процессор - только таймер был аппаратный и не спешил ))
вот в этом и говнокод (если аффтар хотел часики)