Как сделать перемещение Shape?

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm4 = class(TForm)
    Memo1: TMemo;
    Shape1: TShape;
    Shape2: TShape;
    Button1: TButton;
    Button2: TButton;
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Shape1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
  d: boolean;
  shiftX,shiftY:integer;
implementation
 
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);
var s:string;
i,z:integer;
begin
  for I := 1 to Memo1.Lines.Count - 1 do
begin
  s:=Memo1.Lines.Strings[i];
  Shape1.Top:= StrToInt(Copy(s,1,pos(',',s)-1));
  Shape1.left:=StrToInt(Copy(s,pos(',',s)+1,9999));
 for z := 0 to 20 do   begin
  Sleep(1);
  Application.ProcessMessages()
 end;
end;
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
Memo1.Clear;
end;
 
procedure TForm4.FormCreate(Sender: TObject);
begin
d:=false;
end;
 
procedure TForm4.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 IF (ssLeft IN Shift) Then
    Begin
   Shape1.Tag:=1;
shiftY:=Y; shiftX:=X;
end;end;
procedure TForm4.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shape1.Tag = 1 then
begin
Shape1.Top:=Shape1.Top+Y-shiftY;
Shape1.Left:=Shape1.Left+X-shiftX;
Memo1.Lines.Add(IntToStr(Shape1.Top)+','+IntToStr(Shape1.Left));
end;
end;
 
procedure TForm4.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Shape1.Tag:=0
end;
 
end.

procedure TForm4.Button1Click(Sender: TObject);
var s:string;
i,z:integer;
begin
  for I := 1 to Memo1.Lines.Count - 1 do
begin
  s:=Memo1.Lines.Strings[i];
  if pos ('pause',s)<>0 then begin
   for z := 0 to 400 do   begin
  Sleep(10);
  Application.ProcessMessages()
 end;
 Continue
  END;
  Shape1.Top:= StrToInt(Copy(s,1,pos(',',s)-1));
  Shape1.left:=StrToInt(Copy(s,pos(',',s)+1,9999));
 for z := 0 to 20 do   begin
  Sleep(1);
  Application.ProcessMessages()
 end;
end;
end;

procedure TForm4.Button1Click(Sender: TObject);
var s,w:string;
i,z,maxx:integer;
begin
maxx:= Memo1.Lines.Count;
if Memo2.Lines.Count>maxx then
  maxx:= Memo2.Lines.Count;
  for I := 1 to maxx- 1 do
begin
  if i<Memo1.Lines.Count - 1 then
  s:=Memo1.Lines.Strings[i];
  if i<Memo2.Lines.Count - 1 then
  w:=Memo2.Lines.Strings[i];
 
  if pos ('pause',s)<>0 then begin
   for z := 0 to 400 do   begin
  Sleep(10);
  Application.ProcessMessages()
 end;
 Continue
  END;
  if i<Memo1.Lines.Count - 1 then begin
  Shape1.Top:= StrToInt(Copy(s,1,pos(',',s)-1));
  Shape1.left:=StrToInt(Copy(s,pos(',',s)+1,9999));
  end;
  if i<Memo2.Lines.Count - 1 then begin
  Shape2.Top:= StrToInt(Copy(w,1,pos(',',w)-1));
  Shape2.left:=StrToInt(Copy(w,pos(',',w)+1,9999));
  end;
 for z := 0 to 20 do   begin
  Sleep(1);
  Application.ProcessMessages()
 end;
end;
end;