var
Col, Line: Integer;
begin
Col := RichEdit1.SelStart - RichEdit1.Perform(EM_LINEINDEX, -1, 0);
Line := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0);
StatusBar1.Panels[0].Text := Format('Col: %d', [Col]);
StatusBar1.Panels[1].Text := Format('Ln: %d', [Line]);
end;