Как найти позицию текстового курсора в пикселях?

01.01.2007

var
  pt: TPoint;
begin
  with richedit1 do begin
    Perform( messages.EM_POSFROMCHAR, WPARAM(@pt), selstart );
    label1.caption := Format('(%d,%d)', [pt.x, pt.y]);
  end;
end;
var
  r: LongInt;
begin
  with memo1 do begin
    r := Perform( messages.EM_POSFROMCHAR, selstart, 0);
    if r >= 0 then begin
      label1.caption := IntToStr(HiWord(r));
      label2.caption := IntToStr(LoWord(r));
    end;
  end;
end;