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
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