Работа с объектом Image

[Lisёноk]

Добрый день! Необходима помощь!
Имеется следующее задание:

PHP код:

Изобразить катушечный магнитофон
Показать перемотку ленты с катушки на катушку и обратно 


С помощью объекта Image изобразила магнитофон. Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
WITH Image1.Canvas DO
BEGIN
Brush.Color:=clMedGray;
Pen.Color:=clMaroon;
Pen.Style:=psSolid;
Pen.Width:=4;
Font.Size:=20;
Font.Style:= [fsItalic, fsBold];
Brush.Style:=bsClear;
Font.Color:=clBlue;
TextOut (430, 300, 'Магнитофон');
FillRect(Image1.ClientRect);
MoveTo(Image1.Width DIV 3 - 40,Image1.Height DIV 3 + 65);
LineTo(Image1.Width DIV 2 ,Image1.Height DIV 3 - 65);

Brush.Color:=clSilver;
Ellipse(Image1.Width DIV 4 + 65, Image1.Height DIV 3 - 65,
        Image1.Width DIV 4 - 65, Image1.Height DIV 3 + 65);
Ellipse(Image1.Width DIV 2 + 65, Image1.Height DIV 3 - 65,
        Image1.Width DIV 2 - 65, Image1.Height DIV 3 + 65);





end;
end;

end.

Теперь я должна изобразить одновременное увеличение одного круга и уменьшение другого. Но как это сделать не могу понять(((
Помогите, пожалуйста! Скажите, что нужно написать?

[raxp]

предлагаю такой вариант...

procedure TForm1.Timer1Timer(Sender: TObject);
var t: trect;
    l: integer;
begin
 t.Top:= 0; t.Left:= 0;
 t.Right:= image1.Width;
 t.Bottom:= image1.Height;
 l:= image1.Width - image1.Height;

 if (p) then begin
  k:= k-1; if k<1 then k:= 15;
 end else begin
  k:= k+1; if k>15 then k:= 1;
 end;

 with image1.Canvas do begin
  Pen.Color:= clMaroon;
  brush.color:= clwhite;
  fillrect(t);

  Pen.Width:= 1;
  i:= k; ii:= 15-k;
  while i >0 do begin
   Ellipse(image1.Height div 4- i*2 +20,image1.Height div 4- i*2 +20, 3*image1.Height div 4+ i*2 -20, 3*image1.Height div 4+ i*2 -20);
   i:= i-1
  end;

  while ii >0 do begin
   Ellipse(l+image1.Height div 4- (ii)*2 +20,image1.Height div 4- (ii)*2 +20, l+3*image1.Height div 4+ (ii)*2 -20, 3*image1.Height div 4+ (ii)*2 -20);
   ii:= ii-1
  end;

  moveto(image1.Height div 2,image1.Height div 4 +20 - k*2);
  lineto(l+ image1.Height div 2,image1.Height div 4 +20 - (15-k)*2);

  Pen.Width:= 2;
  Ellipse(image1.Height div 4+20,image1.Height div 4+20, 3*image1.Height div 4-20, 3*image1.Height div 4-20);
  Ellipse(l+image1.Height div 4+20,image1.Height div 4+20, l+3*image1.Height div 4-20, 3*image1.Height div 4-20);

 end
end;

[Lisёноk]

Спасибо за помощь! Но увы работу не приняли((((
Сказали сделать попроще: через простенькую процедуру и цикл.
Я попыталась кое что набросать, но получается какой то бред.
Код:

procedure TForm1.Button1Click(Sender: TObject);


procedure Ellipse1 (x,y: integer);
var r,i: integer ;
begin
r:=0;
for i:=45 to 65 do
begin
R:=r+i;
image1.Canvas.Ellipse(Image1.Width DIV 4 + r,Image1.Height DIV 3 - r,
                      Image1.Width DIV 4 - r, Image1.Height DIV 3 + r);
Application.ProcessMessages;
end;
end;


begin
WITH Image1.Canvas DO
BEGIN
Brush.Color:=clMedGray;
Pen.Color:=clMaroon;
Pen.Style:=psSolid;
Pen.Width:=4;
Font.Size:=20;
Font.Style:= [fsItalic, fsBold];
Brush.Style:=bsClear;
Font.Color:=clBlue;
TextOut (430, 300, 'Магнитофон');
FillRect(Image1.ClientRect);
MoveTo(Image1.Width DIV 3 - 40,Image1.Height DIV 3 + 40);
LineTo(Image1.Width DIV 2 ,Image1.Height DIV 3 - 40);
//Brush.Color:=clSilver;

//Ellipse(Image1.Width DIV 4 + 45, Image1.Height DIV 3 - 45,
       //Image1.Width DIV 4 - 45, Image1.Height DIV 3 + 45);
//Ellipse(Image1.Width DIV 2 + 65, Image1.Height DIV 3 - 65,
        //Image1.Width DIV 2 - 65, Image1.Height DIV 3 + 65);
Ellipse1 (x,y);
end;
end;









end.

Вот...
И что теперь делать? Какой нужен цикл? А то я что-то совсем запуталась.