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ł.