Cursor mit Rechtsklick setzen in Memo

[ASM]

Delphi-Quellcode:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  p2: TPoint;
begin
  if Button = mbRight then
  begin
    GetCaretPos(p2);
    Memo1.CaretPos := Memo1.ClientToScreen(p2);
  end;
end;