[roman]

Coloca un componente ApplicationEvents (pestaña Additional) y en su evento OnMessage coloca esto:

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message(
  var Msg: tagMSG; var Handled: Boolean);
begin
  if
    (Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST) 
  then
    Handled := true;
end;

Esto aún te permitirá interactuar con el borde de la ventana. Si tampoco quieres esto entonces modifícalo así:

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message(
  var Msg: tagMSG; var Handled: Boolean);
begin
  if
    (Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST) or
    (Msg.message >= WM_NCMOUSEMOVE) and (Msg.message <= WM_NCXBUTTONDBLCLK)
  then
    Handled := true;
end;

// Saludos