Абсолютная позиция курсора в TMemo( в пикселях)

[teleprog]

Привет всем!

позицию курсора нахожу так -

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

var
x,y,  yy:integer;
begin
    image1.Picture.Bitmap.Canvas.Font.Assign(Memo1.Font);
    y :=  Memo1.CaretPos.y* image1.Picture.Bitmap.Canvas.TextHeight('Wq');;
    x := image1.Picture.Bitmap.Canvas.TextWidth(utf8copy(Memo1.Lines[Memo1.CaretPos.y], 1, Memo1.CaretPos.x));         


Т.е. тупо беру ширину текста до курсора.
Но есть проблема - для разных шрифтов начало строки(отступ) в мемо отличается.

ooooooooooooooooooooooo.JPG

Как определить этот отступ?
Или как его убрать?

Всем спасибо за внимание, уже разобрался)
В начало строки рисуется пробел, теперь определяю ширину текста + ширину одного пробела

[Light13]

не проще брать x, y из события OnMouseMove?