Положение курсора

[flowdoc]

Добрый день! Допустим в memo большое количество строк, присутствует скроллбар. Если отображать положение курсора при событии RichMemo1MouseMove, то показывает положение (X,Y) относительно левой и верхней границы. Но при прокрутки содержимого memo вниз значение отступа сверху не увеличивается относительно прокрученных строк. Как отображать положение курсора относительно начала первой строки в компоненте?

[qivi]

Код: Выделить всё

Form1.Caption:=inttostr(Memo1.VertScrollBar.Position+Y); 

[flowdoc]

Код: Выделить всё

Form1.Caption:=inttostr(Memo1.VertScrollBar.Position+Y); 

Спасибо! То что нужно!