Delphi - Auxilio no se arrastrar dibujos creados

Auxilio!!!!!!!!!! por favor es que no entiendo como poder arrastrar un objeto creado por dibujo miren este es el siguiente codigo pero no se como arrastrar lo que realizo o hacerlo tipo clase no se si sea correcto porfavor!!!!!!!!!!!!!!!!!!!!!!!

procedure TForm1.Button1Click(Sender: TObject);
var
Sides:integer;
Count:integer;
Polyarray:Array[0..15] of Tpoint;
begin
Sides:=strtoint(NumSides.Text);
if Sides>15 then Sides:=15;
For Count:=0 to Sides do
begin
Polyarray[Count]:=Point(TRUNC(SIN((2*PI)*COUNT/Sides)*70)+(Form1.Width div 2),
TRUNC(COS((2*PI)*COUNT/Sides)*70)+(Form1.Height div 2));
end;
//
For Count:=Sides+1 to 15 do
PolyArray[Count]:=PolyArray[0];
Form1.Canvas.Pen.Width:=3;
Form1.Canvas.Polyline(PolyArray);
end;

procedure TForm1.Button2Click(Sender: TObject);

var
Count:integer;
Pause: real;
begin
Form1.Canvas.Pen.mode:=pmCopy;
Form1.Canvas.Pen.Color:=clred;
Form1.Canvas.Polyline([point(50,10),point(100,10),point(100,200),point(50,200),point(50,10)]);
Form1.Canvas.Pen.Color:=clBlue;
Form1.Canvas.Pen.mode:=pmNotXor;
For Count:=0 to (Form1.Width div 5) do
begin
Form1.Canvas.polyline([point(Count*5,100),point(Count*5+10,100),point(Count*5+5,110),point(Count*5,100)]);
pause:=Time;
While(Time-Pause)<1e-12 do;
Form1.Canvas.polyline([point(Count*5,100),point(Count*5+10,100),point(Count*5+5,110),point(Count*5,100)]);
end;
end;