Deshabilitar Clic Derecho en Memo?

[wolfran_hack]

Hola quisiera saber si alguien sabe como poder bloquear el boton derecho del mouse en un Memo sino que el menú derecho del mouse desaparezca, si alguien sabe como hacerlo agradecería mucho su ayuda.
Saludos

[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.