[roman]

Dos opciones:

1. Atándole las manos
2. Con el siguiente código:

type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Message: TWMSysCommand);
    message WM_SYSCOMMAND;
  end;

implementation

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MOVE
    then Message.Result := 0
    else inherited;
end;

// Saludos