[Jan_polero]

Vaya,lo siento...jeje.Pues el código va en 3 eventos:

Lo que hace esto es permitir mover Imagenes por el form.Pero hay algunas cosas que no sé que son,como por ejemplo MouseDownSpot o ReleaseCapture(que aunque resulta obvio que suelta la captura desconozco qué es).

//CODIGO DELPHI//

Código Delphi [-]
 Capturing : boolean;
 
 procedure TFInventario.Image1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   Capturing := true;
   MouseDownSpot.X := x;//TImage(Sender).Left -1;
   MouseDownSpot.Y := y;//TImage(Sender).Top  -1;
 end;
  
  
 procedure TFInventario.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
 begin
   if Capturing then
   begin
   TImage(Sender).Left := TImage(Sender).Left - (MouseDownSpot.x - x);
   TImage(Sender).Top := TImage(Sender).Top - (MouseDownSpot.y - y);
   end;
 end;
  
 
 procedure TFInventario.Image1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   if Capturing then 
     begin
     ReleaseCapture;
     Capturing := false;
     TImage(Sender).Left := TImage(Sender).Left - (MouseDownSpot.x - x);
     TImage(Sender).Top := TImage(Sender).Top - (MouseDownSpot.y - y);
     end;

end;
//FIN CODIGO DELPHI//

Ese es el código.Lo que quiero hacer es que cuando se seleccione una imagen se cree una copia y sea la copia la que se mueva.Por ello debo saber lo que hace.Por ello cualquier ayuda es buena.Muchas gracias de antemano.