Delphi - barra de estado

tengo un componente RichEdit1 y una barra de progreso y querría saber como hacer para saber en que posición se encuentra el cursor para añadir la información a la barra de estado.

en el evento ..... OnSelectionChange del editor

procedure TForm1.EditorSelectionChange(Sender: TObject);
var
CharPos: TPoint;
begin
CharPos.Y := SendMessage(Editor.Handle, EM_EXLINEFROMCHAR, 0,
Editor.SelStart);
CharPos.X := (Editor.SelStart -
SendMessage(Editor.Handle, EM_LINEINDEX, CharPos.Y, 0));
Inc(CharPos.Y);
Inc(CharPos.X);
StatusBar.Panels[0].Text := Format('Linea: %3d Col: %3d', [CharPos.Y, CharPos.X]);
end;

Saludos

Sólo era para darte las gracias José Oronas. Saludos