Animacja w delphi

Witam musze zrobic cos takiego , mam obrazek który ma wymiary 180px na 180px i ten obrazek jest ustawiony na timer ze po np 2s z malego punktu powieksza sie co 2s a zarazem po uzyskaniu max szerokosci i wysokosci ma z powrotem zmniejszyc sie w punkt.Mam juz oto taki kod

 procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i=1 then
begin
image1.Visible:=false;
timer1.Enabled:=true;
end
else
image1.Visible:=true;
image1.Width:=(i-1)*30;
image1.Height:=(i-1)*30;
image1.Top:=100-(i-1)*15;
image1.Left:=100-(i-1)*15;

i:=i+1;
if i= 8 then
i:=1;


end;

Potrzebuje wskazówek jak zrobić aby ten obrazek z powrotem się zmniejszał.

Potrzebuje wskazówek jak zrobić aby ten obrazek z powrotem się zmniejszał.

Dodaj zmienną która będzie pamiętać czy aktualnie zwiększamy, a gdy osiągniesz żądany poziom to ją zmień tak żeby odejmowało.