Раскрашиваем RichEdit и считаем порядковый номер

[chex01]

Доброго времени суток, дорогие мои!

Использую RichEdit и два Edit'а, ну и кнопочка.
Задача:
1.1) Выделить одним цветом текст(Edit1) в RichEdit и другим весь текст слева от этого текста(Edit1).
(Слон, кот, бегемот, кот, Валера, кот.)
1.2) Выделить одним цветом текст(Edit2) в RichEdit и другим весь текст справа от этого текста(Edit2).
(Слон, кот, бегемот, кот, Валера, кот. )
2) Ну и на сладкое: получить порядковый номер выделенного элемента.
(Слон, кот, бегемот, кот, Валера, кот. [Выделенный "кот" - 2ой])

Проблема:
1.1 и 1.2) Мешают системные символы. Если удаляю получается беда. С обычным текстов всё Ok.
2) даже не представляю как можно реализовать. Буду благодарен хотя бы за подсказку.

Что есть:

procedure TPars_browser.Button_LClick(Sender: TObject);
var
InString: string;
begin
InString := RE.Text;
InString := StringReplace(InString, #$A, '',[rfReplaceAll]);
InString := StringReplace(InString, #$D, '',[rfReplaceAll]);

// выделяем текст СЛЕВА 
  RE.SelStart := 0;
  RE.SelLength := Pos(Edit_BL.Text,InString)-1;
  RE.SelAttributes.Color := clRed;

// выделяем текст
  RE.SelStart := Pos(Edit_BL.Text,InString)-1;
  RE.SelLength := Length(Edit_BL.Text);
  RE.SelAttributes.Style := [fsBold];
end;

[chex01]

Чё-то я тупанул страшно. Проблемы и не было...

Сообщение от chex01

1.1) Выделить одним цветом текст(Edit1) в RichEdit и другим весь текст слева от этого текста(Edit1).
(Слон, кот, бегемот, кот, Валера, кот.)
1.2) Выделить одним цветом текст(Edit2) в RichEdit и другим весь текст справа от этого текста(Edit2).
(Слон, кот, бегемот, кот, Валера, кот. )

procedure TPars_browser.Button_LClick(Sender: TObject);
var
SPos: integer;
begin
SPos := RE.SelStart;

// выделяем текст СЛЕВА границы
  RE.SelStart := 0;
  RE.SelLength := SPos;//PosEx(Edit_BL.Text,InString,StartPos)-1;
  RE.SelAttributes.Color := clRed;

// выделяем текст границы
  RE.SelStart := SPos;//PosEx(Edit_BL.Text,InString,StartPos)-1;
  RE.SelLength := Length(Edit_BL.Text);
  RE.SelAttributes.Style := [fsBold];

 RE.SetFocus; // подсвечиваем(выделяем) искомый кусок
end;

Сообщение от chex01

2) Ну и на сладкое: получить порядковый номер выделенного элемента.
(Слон, кот, бегемот, кот, Валера, кот. [Выделенный "кот" - 2ой])

Набросал вот такую функцию:

function NumString(FText, SText: string; LastPos: integer): string;  // FText(что ищем), SText(где ищем), LastPos(до какой позиции)
var
PosText, NumText: integer;
begin
NumText := 0;
PosText := 0;
SText := StringReplace(SText, #$A, '',[rfReplaceAll]); // при выделении текста "#$A" не учитывается
 While true do // бесконечный цикл, выскакиваем по условию
  begin
    PosText := PosEx(FText, SText, PosText + 1); // ищем начиная со следующей позиции после предидущего значения
    if PosText > 0 then inc(NumText) else Break;
    if PosText > LastPos then Break; // если позиция зашла за выделенный
  end;
Result := IntToStr(NumText);
end;

Я использую так:

 NumText_L.Text := NumString(RE.SelText,RE.Text,RE.SelStart);

Огромное спасибо Всем кто хотел помочь!