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 ?

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

[Ginko]

Hi danke für die Antwort, klappt bei mir leider nicht.
Ich habe aber gerade eine Lösung gefunden:

Delphi-Quellcode:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    Memo1.SelStart  := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y)));
end;

Ansatz: http://www.swissdelphicenter.ch/de/showcode.php?id=1538

Interessant fände ich aber trotzdem wenn man es auch auf obige weise lösen könnte, ohne das man hier ein Handle braucht.