[roman]

Es que tienes que implementarlo:

Código Delphi [-]
interface

procedure TForm1.Mover(
  Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin

  { Aquí tu código }

end;

// Saludos