[Delphi] zwiększajaca cyfra w label (timer)

Witam.
W jaki sposób mógłbym zrobić coś w stylu:
timer ustawiony jest np. na 3 sekundy (czyli po 3 sec wykona jakąś akcję)
jest TLABEL lub pole TEdit1.text w którym co 3 sekundy (czyli tak jak timer działa) będzie zwiększała się liczba o np. 3 aż do zatrzymania timera.

Jeśli ktoś nie rozumie to wytłumaczę to inaczej:
Włączamy program, widzimy jedno pole np. label lub edit, pod nim dwa buttony: Start i Zatrzymaj (Enable i Disable timera).
Pole edit (lub label) z początku są puste lub zawierają np. cyfrę '0' (zero).

Klikając na START włącza się timer i co 3 sekundy zwiększa cyfrę w Edit'cie (lub labelu) o wartość 3 (lub 5).
Dokładniej mówiąc:
minęły 3 sec w edicie jest cyfra: 5 (lub 3)
minęło 6 sec, w edicie jest 10
-"- 9 sec i mamy 15
20
25
30
itd.

Nie mam pojęcia jak to zrobić.
Jeśli to kogoś interesuje:
Powiedzmy, że mam zrobiony program w stylu: co 3 sec wyskakuje 5 okienek
i teraz muszę zrobić "licznik" do tego by co te 3 sekundy dodawał wartość 5 i pokazywał to gdziekolwiek np. w labelu, edicie.

Dziękuję za przeczytanie tego tematu.

/edit
UDAŁo SIĘ :D


var
wynik: integer;
liczba: integer;

begin
liczba:=5;
wynik:=strtoint(Edit5.Text);

wynik:=wynik+5;
Edit5.Text:=inttostr(wynik);
Użytkownik buster edytował ten post 18 grudzień 2007, 13:28

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl