[roman]

No uses DragMode sino BeginDrag y hazlo en el evento MouseDown:

Código Delphi [-]
procedure Image1MouseDown(...);
begin
  Image1.BeginDrag(false, 5);
end;

// Saludos