Linha em que estou no Rich Edit????

...
uses RIchEdit;
...
procedure TForm1.Button1Click(Sender: TObject);
var
CharPos: TPoint;
begin

CharPos.Y := SendMessage(RichEdit1.Handle, EM_EXLINEFROMCHAR, 0,
RichEdit1.SelStart);
CharPos.X := (RichEdit1.SelStart -
SendMessage(RichEdit1.Handle, EM_LINEINDEX, CharPos.Y, 0));
Inc(CharPos.Y);
Inc(CharPos.X);
ShowMessage(´Linha ´ + IntToStr(CharPos.Y) + ´ Coluna ´ + IntToStr(CharPos.X));

end;

Não precisa complicar tanto...

Linha atual:
RichEdit1.caretPos.y

Coluna atual:
RichEdit1.caretPos.x