Traspaso de parent con efecto visual

[Comandant]

OK lo hare sencillo:

var 
MousePos: TPoint;
Image: TImage;
...
Image:= TImage.Create(self);
Image.Parent:= ScrollBox1;

...
Evento MouseMove
var
  P: TPoint;
begin
  GetCursorPos(P);
  if ssLeft in Shift then
    with (Sender as TImage) do
    begin
      Top:= Top + (P.Y - MousePos.Y);
      Left:= Left + (P.X - MousePos.X);
    end;
  MousePos:= P;

y lo que quiero es moverlo por todo el form sin que se tape ya que el parent esta con el scrollbox y estaba viendo si no hay algún procedimiento sent to Front para moverlo delante de todos los objetos. O otra opción que veía es hacer un cursor con la imagen pero nose que me proponen?.

[Comandant]

Aclaro que puse traspaso de parent debido a que si un usuario mueve el componente(en este caso la imagen) fuera del scrollbox el parent cambie al formulario pero quisiera saber si se puede tener ese efecto visual de arrastre. Gracias manes

[Comandant]

Encontré algo interesante y es que cuando pongo dragkind en dkdock y dragmode en dkAutomatic casi casi logra lo que toy buscando salvo que se pone un recuadro y que cuando suelto instantáneamente me crea otra ventana con el objeto. Veo que voy por el buen camino