Вычислить длинну текста нескольких строк...

[Nater]

Здраствуйте! Помогите справиться с проблемой:
Есть RichEdit,в нем несколько строк с текстом(случайное кол-во строк).
Нужно,чтобы при KeyDown подсчитывалась длинна строк до той,на которой установлена каретка.

[evg_m]

caretpos
lines
selstart
selend
SelText и F1

[Nater]

проблема в том,что неизвестно сколько строк перед курсором.

[Nater]

А,вот,дошло!

RichEdit.SelStart:=0;
RichEdit.SelLength:=Length(RichEdit .Lines[p1-1]);
x:=Length(RichEdit.SelText);

Спасибо большое!