Движение image по форме

var
f: boolean ;
xc,yc : integer;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
If f=True then
  begin
  Image1.Left:=Mouse.CursorPos.X-Left-(Width-ClientWidth)-xc;
  Image1.Top:=Mouse.CursorPos.Y-Top-(Height-ClientHeight)-yc;
  end;
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xc:=x;
yc:=y;
f:=True;
end;
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
f:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Image: TImage;
kol,i:integer;
begin
kol:=1;
for i := 1 to kol do  begin
with FindComponent('object' + IntToStr(kol)) as TImage do
begin
 
 
  Image:=TImage.Create(Form1);
  Image.Parent:=Form1;
  Image.Left:=50;
  Image.Top:=50;
  Image.Width:=250;
  Image.Height:=100;
  image.Canvas.Pen.Width:=4;
  Image.Canvas.Pen.Color:=clBlack;
  Image.Canvas.Brush.Color:=clRed;
  image.Canvas.Rectangle(1,1,x2,y2);
  image.Width:=x2;
image.Height:=y2;
end;
end;
end;

      image.OnMouseDown := Image1MouseDown;
      image.OnMouseMove := Image1MouseMove;
      image.OnMouseUp := Image1MouseUp;