Canvas.Движение шарика по заданной нарисованной траектории

[yurotchka]

Помогите заставить шарик двигаться по траектории. Написал траекторию, а что написать в таймере для его движения не знаю. Подскажите какую процедуру нужно написать или какой цикл для движения объекта.
Код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    tmr1: TTimer;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j:Integer;
implementation

{$R *.dfm}


procedure TForm1.btn1Click(Sender: TObject);
begin
Canvas.Rectangle(1,1,700,700);    //создание формы
Canvas.Ellipse(2,70,20,50);
Canvas.MoveTo(1,70);
Canvas.LineTo(50,70);
Canvas.MoveTo(50,90);
Canvas.LineTo(50,70);
Canvas.MoveTo(50,90);
Canvas.LineTo(90,90);
Canvas.MoveTo(90,90);
Canvas.LineTo(90,70);
Canvas.MoveTo(90,70);
Canvas.LineTo(200,70);
Canvas.MoveTo(200,50);
Canvas.LineTo(200,70);
Canvas.MoveTo(200,50);
Canvas.LineTo(250,50);
Canvas.MoveTo(250,50);
Canvas.LineTo(250,70);
Canvas.MoveTo(250,70);
Canvas.LineTo(350,70);

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
PatBlt(Form1.Canvas.Handle, 0, 0,
Form1.ClientWidth, Form1.ClientHeight, WHITENESS);// очистка экрана
end;

 procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

В приложении скрин запуска программы.

[TwiX]

//procedure Form1.Animate();
FillRect(clipRect);
for i:=0 to число_точек_траектории-1 do
begin
  Canvas.Ellipse(x[i]-2, y[i]-2, x[i]+3, y[i+3];
  Application.ProcessMessages;
  Sleep(200);
end;

[Andrey131]

спасибо вам