Kursor oraz status

W jaki sposób wyświetlić pozycję kursora w richedit na statusie, żeby wygłądało to, np. tak: Wrs x, Kol y.
Help ;-( !!! ;-(

function TMainForm.GetCursor: TPoint;
begin
Result.Y := Memo.Perform(EM_LINEFROMCHAR, $FFFF, 0);
Result.X := Memo.SelStart - Memo.Perform(EM_LINEINDEX, $FFFF, 0);

Inc(Result.X);
Inc(Result.Y);
end;

najprosciej tak:

[code]StatusBar1.SimplePanel := True;
StatusBar1.SimpleText := 'Kolumna:' + IntToStr(RichEdit1.CaretPos.x) + 'Wiersz:' + IntToStr(RichEdit1.CaretPos.y);[/code]