Здравствуйте, Ilyxa09!

Смотрите пример.

самый простой вариант:

procedure TForm1.Button1Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text:=RichEdit1.Lines.Text;
end;

Возможно применение массивов,если вам нужно конкретная строка или символ строки,например,

mas=array of String;
var
Form1: TForm1;
a:mas;
n:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
n:=RichEdit1.Lines.Count;
SetLength(a,n);
for i:=0 to n-1 do
a[i]:=RichEdit1.Lines[i-1];
StatusBar1.Panels[0].Text:=RichEdit1.Lines.Text[10]; //выводим 10 символ строки
end;

По второй части вопроса:

property SelLength: Integer; (Задает длину в символах выделенной части текста)
Смотрите в Helpe Delphi.

Удачи!

Здравствуйте, Ilyxa09!
Добалю.
StatusBar1.Panel[0].texst:=RichEdit1.SelText;
Предварительно на статус баре необходимо создать хотя бы одну панель.

Здравствуйте, Ilyxa09!
statusbar:=richedit.items.strings[richedit.itemindex]; наверно так