Как по нажатию мыши менять TImage и перерисовывать на него bmp с другого TImage?

var
x1, y1: integer;
...
OnMouseDown:
x1 := X;
y1 := Y;
mousepressed := true;
Image2.Left := X;
Image2.Top := Y;
 
OnMouseMove:
if X > x1 then Image2.Width := X - x1 else
begin
 Image2.Left := X;
 Image2.Width := x1 - X;
end;
if Y > y1 then Image2.Height := Y - y1 else
begin
 Image2.Top := Y;
 Image2.Height := y1 - Y;
end;
BitBlt(Image2.Canvas.Handle, Image2.Left, Image2.Top, Image2.Width, Image2.Height,
  Image1.Canvas.Handle, 0, 0, SRCCOPY);

BitBlt(Image2.Canvas.Handle, 0, 0, Image2.Width, Image2.Height,
  Image1.Canvas.Handle, Image2.Left, Image2.Top, SRCCOPY);

BitBlt(Image2.Canvas.Handle, 0, 0, Image2.Width, Image2.Height,
  Image1.Canvas.Handle, Image2.Left, Image2.Top, SRCCOPY);

procedure TForm1.FormCreate(Sender: TObject);
var 
  d, s:trect;
  bm:Tbitmap;
begin
// исходное изображение 
   Image1.Canvas.Brush.Color:=$888888;
   Image1.Canvas.RoundRect(100,Image1.Height-40,130,Image1.Height-10,5,5);
  
// куда положить
   d.Top:=0;
   d.Left:=0;
   d.Right:=Image1.Width;
   d.Bottom:=Image1.Height-50;
 
// откуда положить
   s.Top:=50;
   s.Left:=0;
   s.Right:=Image1.Width;
   s.Bottom:=Image1.Height;
 
   bm:=tbitmap.Create;
   bm.Assign(Image1.Picture.Bitmap); // чтобы не мудрить взял исходную картинку и с нее буду копировать
   Image1.Canvas.CopyRect(d,bm.canvas,s);
end;