[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?.