[Delphi] Watki

Witam !

Mam sobie jakis watek,
procedure TTest.Execute;
begin
FreeOnTerminate:=False;
jakies zadania
end;

i jak zrobic aby zadania te byly wykonywane co np 1 minute.
Dawalem juz w On Timer Test.Resume ale to nie dziala !
Wiec jak ? [???]

procedure TTest.Execute;
begin
repeat
FreeOnTerminate:=False;
jakies zadania
TTest.Suspend;
until terminated
end;

To co jest podkreslone dodaj na sam koniec procedury a wtedy kiedy wykona sie zostanie zatrzymane. a caly program wlacznie z suspend umiesc w ramowce np repeat (patrz wyzej) sprawdzajacej czy watek ma sie zakonczyc. Chyba pomoze.

Dzieki, pomoglo ! :-)