Помогите пажалуйста!

[zoza1]

Народ помогите пажалуйста решить графическую задачку: Имитировать взлет ракеты.
Заранее спасибо!

[ОДИНОЧЕСТВО В СЕТИ]

procedure raketa(x,y:Integer;color:TColor);
const dx=5;
      dy=5;

begin
  with Form5.Img1,Form5.Img1.Canvas do
  begin
      Brush.Color:=clWhite;
      FillRect(rect(0,0,Width,Height));
      a:=a+5;
      TextOut(10,10,Inttostr(a)+' секунд - полет нормальный');
      buf:=pen.Color;
      Pen.Color:=color;
      Brush.Color:=clWhite;
      Rectangle(x,y,x+3*dx,y-16*dy);
      MoveTo(x,y-16*dy);
      LineTo(Round(x+1.5*dx),y-18*dy);
      LineTo(x+3*dx,y-16*dy);
      MoveTo(X,y);
      LineTo(x-dx,y+dy);
      LineTo(x-dx,y-5*Dy);
      LineTo(x,y-6*dy);
      MoveTo(X+3*dx,y);
      LineTo(x+4*dx,y+dy);
      LineTo(x+4*dx,y-5*Dy);
      LineTo(x+3*dx,y-6*dy);
      Rectangle(x+dx,y+dy,x+2*dx,y-6*dy);

    end;

end;
procedure TForm5.tmr3Timer(Sender: TObject);
begin
   raketa(x,y,clWhite);
   y:=y-5;
   raketa(x,y,ClBlue);
end;