Lo siento, hasta que no me haga..., muchas gracias.
Código Delphi
[-]
procedure TForm1.Image2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:= Sender is TImage;
end;
procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Sender as TImage).Picture.Assign((Source as TImage).Picture);
showMessage(Nombre del objeto TImage (origen) que se ha alojado en este);
end;