Задача заключается в том чтобы заставить этот самолет двигаться вперед( как бы летать), но сделать это через таймер!

type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
 procedure samolet(x,y:integer);
 procedure nevedimka(x,y:integer);
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure tform1.samolet(x,y:integer);
begin
canvas.Brush.color:=clblack;
canvas.Pen.Color:=clyellow;
canvas.Ellipse(x,y,x+90,y+20);
canvas.Ellipse(x+25,y-40,x+45,y+60); //êðûëî
 
canvas.Brush.color:=clgreen;
canvas.Pen.Color:=clgreen;
canvas.Ellipse(x+30,y-40,x+50,y-30);  //òèïà ðàêåòû èëè ÷òî òî â ýòîì ðîäå ñâåðõó
canvas.Ellipse(x+30,y-30,x+50,y-20);
 
canvas.Ellipse(x+30,y+60,x+50,y+50);
canvas.Ellipse(x+30,y+50,x+50,y+40); //òèïà ðàêåòû èëè ÷òî òî â ýòîì ðîäå ñíèçó
end;
 
procedure tform1.nevedimka(x,y:integer);
begin
canvas.Brush.color:=clbtnface;
canvas.Pen.Color:=clbtnface;
canvas.Ellipse(x,y,x+90,y+20);
canvas.Ellipse(x+25,y-40,x+45,y+60);
 
canvas.Brush.color:=clbtnface;
canvas.Pen.Color:=clbtnface;
canvas.Ellipse(x+30,y-40,x+50,y-30);
canvas.Ellipse(x+30,y-30,x+50,y-20);
 
canvas.Ellipse(x+30,y+60,x+50,y+50);
canvas.Ellipse(x+30,y+50,x+50,y+40);
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
samolet(x,y);
 
end;
 
 
end.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   samolet(x,y, False); 
   if x < Form1.ClientWidth
      then x := x+2
      else begin
        x := 0;
        y := Random(50) + 100;
      end;
   samolet(x,y,True); 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    x:=0; y:=80;           
    Timer1.Interval := 50;
end;