[Delphi] Odliczanie czasu od 0 aż do momentu przerwania

Cześć

zwracam się z pytaniem, jak napisać program, aby uzyskać odliczanie czasu od zera, aż do momentu przerwania.
Procedura licz od: 0->nieskończoność.

W 4programmers znajduje się kod, w którym czas liczony jest od wartości podanej do zera:
http://4programmers.net/article.php?id=64

oraz

program wykorzystujący ten kod źródłowy.
http://4programmers.net/file.php?id=378
Procedura licz od: 0010 ;) ->0

Chciałbym, aby mój program odliczał czas w Label1.caption
Natomiast odliczanie czasu poprzez naciśnięcie Buuton1

Z góry dziękuję wszystkim :-|

http://4programmers.net/article.php?id=25

Dzięki za info

Aplikacja uruchomiona: %d sekund
hmm

Ten przykład zawiera postać w sekundach.
gdzie po 60s jest 61s i itd.
Natomiast mi chodzi o format czasu 0000
gdzie 00:01.01
oczywiście postać czasu 0000 w Label.Caption

Przykład ciekawy, ale nie dla moich potrzeb.

Jeszcze raz dzięki.

bosz, to co za problem sekundy przeliczyć na godziny i minuty - trochę inwencji twórczej by się przydało.

godziny := suma div 3600; 
minuty := (suma mod 3600) div 60; 
sekundy := (suma mod 3600) mod 60;

Deti [soczek]

Deti napisał(a)

sekundy := (suma mod 3600) mod 60;

Nie żebym się czepiał, ale nie prościej:

sekundy := suma mod 60;

Efekt ten sam, a jedna operacja mniej.