[Delphi] Timer - jak zatrzymać odliczanie po instrukcji

W programie są wykorzystane dwa istotne w tym pytaniu elementy. Po pierwsze program ma użytą procedurę timera, do zamykania programu (z tej strony):
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.StatusBar1.SimpleText:='Do automatycznej minimalizacji okna pozostało ' + IntToStr(TimS) + ' sek.';
Dec(TimS);
If TimS = 0 then Close;
end;
Jednocześnie jest uruchomiony w Tray'u i funkcja close zamyka aktywną formę (przy TimS=0), jednak program nadal działa. Po otwarciu formy z tray'a, timer pokazuje -1, -2, -3 itd.
PYTANIE: Jak zdeaktywować tą procedurę, żeby się już nie wykonywała po osiągnięciu wartości "0"?
Z góry dzięki :-)

  If TimS = 0 then 
            begin
              Timer1.Enabled:=False;
              Close;
             end;

--
Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1