[ecfisa]

Hola wolfran_hack.

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    procedure MemoContextMenu(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  public
  end;
...

implementation

procedure TForm1.MemoContextMenu(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  Handled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.OnContextPopup := MemoContextMenu;
  ...
end;

Saludos.