Нарисовать на экране траекторию движения частицы

var
  Form1: TForm1;
  x,y,x1,y1,i:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=clientwidth div 2;
y:=clientheight div 2;
Timer1.Enabled:=false;
Timer1.Interval:=100;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
with Canvas do
 begin
  brush.Color:=clRed;
  ellipse(x-3,y-3,x+3,y+3);
  moveto(x,y);
 end;
Timer1.Enabled:=true;
Button1.Visible:=false;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
randomize;
x1:=1+random(clientwidth);
y1:=1+random(clientheight);
with Canvas do
 begin
  pen.Color:=clBlue;
  lineto(x1,y1);
  brush.Color:=clRed;//саму точку если не нужно, не рисуйте
  pen.Color:=clRed;
  ellipse(x1-3,y1-3,x1+3,y1+3);
 end;
i:=i+1;
if i=50 then Timer1.Enabled:=false;  
end;