如何拖动图片到另一个控件上?

Question

在窗体放入2个image控件，我想把第1个image元件中的图片，拖到第2个里面，试了半天未能成功?提示不适合此操作?应该怎么做?procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft  then
(sender as Timage).BeginDrag(true);
end;
procedure TForm1.Image2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if  source  is  Timage  then
accept:=true;
end;
procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if(sender as Timage)and(source is Timage)then
(sender  as Timage).Picture.Bitmap.LoadFromFile('');
end;

Answer 1

procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (sender is Timage)and(source is Timage)then
  image2.Picture.Assign(TImage(source).Picture);
end;