Timer

mam dosyć dziwne ale chyba łatwe pytanie. Może wpierw looknijcie na kod w Timerze mam :

procedure TForm2.Timer1Timer(Sender: TObject);
begin
shape1.Left:=shape1.Left-5;
shape1.Top:=shape1.Top-5;
shape1.Height:=shape1.Height+10;
shape1.Width:=shape1.Width+10;
if shape1.Width=100 then
Timer1.Enabled:=false; {w tym miejscu timer sie zatrzymuje}
end;

Moje pyranie jest takie że chcę aby po rozciągnięciu się shapa do 100 czas się nie zatrzymywał tylko wykonywał następne polecenia. W takim razie jak zrobić że gdy shape jest na rozciągnięty 100 to żeby dalej się nie rozciągał a timer wykonywał dalszą część.
Wiem że można zrobiś więcej niż jeden timer który będzie się włĄczał kiedy poprzedni się wyłączy ale cz można to zrobić tylko w jednym timerze.
Chyba mnie rozumiecie :|

Za posty dzięki

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  if shape1.Width<100 then
  Begin
    shape1.Left:=shape1.Left-5;
    shape1.Top:=shape1.Top-5;
    shape1.Height:=shape1.Height+10;
    shape1.Width:=shape1.Width+10;
  End;
end;