Füge einfach im OnSelectionChange Event folgenden Quelltext ein:
Delphi-Quellcode:
uses RichEdit;
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
//Zeilen- und Zeichenangabe
with (Sender AS TRichEdit).CaretPos do
begin
Statusbar1.Panels[0].Text := Format('Zeichen: %d - Zeile: %d',[X+1,Y+1])
end;
end;