[roman]

Código Delphi [-]
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if
    (Msg.CmdType and $FFF0 <> SC_RESTORE) and
    (Msg.CmdType and $FFF0 <> SC_MOVE)
  then
    inherited;
end;

// Saludos