Абсолютные X,Y координаты курсора в Memo, RichEdit

[Sergio_O]

День добрый.
Есть необходимость узнавать координаты курсора в компоненте многострочного ввода.
Т.е. не Строка 2, Символ 5, а относительно Экрана, т.е. скажем 200 по X и 350 по Y. Есть ли стандартная функция или придется вычислять? Если вычислять, то надо учитывать размер шрифта...

[3D Hunter]

var
  p:TPoint;
begin
  GetCursorPos(p);
  Caption:=IntToStr(p.X)+'x'+IntToStr(p.Y);
end;