Cursor mit Rechtsklick setzen in Memo

[Ginko]

Hi, ich versuche gerade den Cursor in einem Memo Feld zusätzlich mit der rechten Maustaste setzen zu lassen. Es klappt aber nicht wirklich ....

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 := p2;
  end;
end;

GetCaretPos liefert was falsches. Kann man das umrechnen ?
Oder geht das so garnicht ?