Mover ventana

[roman]

Una forma sencilla sería interceptar el mensaje WM_NCHITTEST de Windows:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;

  public
    { Public declarations }
  end;

implementation

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;
  if Msg.Result = HTCLIENT then
    Msg.Result := HTCAPTION;
end;

Aunque sólo funcionará si la arrastras desde una parte del formulario que no tenga ningún control.

// Saludos