[andres1569]

Hola:

Coincido con frankmch en que no parece muy clara la utilidad que le quieres dar a esto (salvo si tienes varios TPopupMenus). El siguiente código, tras colocar un componente TApplicationEvents, intercepta su evento OnMessage, e inutiliza la pulsación del botón derecho del ratón a nivel de tu aplicación (bueno y de las aplicaciones de quien lo quiera usar ... ):

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if InutilizarBotonDerechoMouse AND // variable booleana que activas cuando lo desees
     (Msg.message >= WM_RBUTTONDOWN) AND 
     (Msg.message <= WM_RBUTTONDBLCLK) then
    Handled := TRUE;  // con esto indicamos que ya hemos tratado el evento
end;