цвет символа в richedit

[Marianna22]

Доброго времени суток!
Есть такая проблемка. На форме два компонента richedit. На них отображены бинарные значения символов без пробелов ( типа 01001010111011...). Длина может быть разной. Нужно сравнить строки этих компонент и главное выделить в этих же компонентах несовпавшие символы (допустим красным) цветом. Пример: richedit1 (0100111...) / richedit2 (0110101...)
Буду признательна за любую помощь.
Начала как то так:

for i:=0 to richedit1.lines.count-1 do
 begin
  for j:=0 to length(richedit1.lines.strings[i]) do
   begin
     if  richedit1.lines.strings[i][j]<> richedit2.lines.strings[i][j]  then
      begin
           // сюда бы вот чего то...
      end;
   end
 end;

[Stilet]

ИМХО: Для настройки стиля в РичЭдите нужно указать с какого символа начинать заливать цветом, но номер этого символа должен быть абсолютным а не по номеру строки.
Поэтому я полагаю что проход нужно делать в цикле не по строкам а посимвольно...

[Marianna22]

Если создать два массива симовлов (один из richedit1, другой из richedit2), циклом сравнивать элементы и запоминать номера несовпадающих, какой функцией потом находить эти элементы и перекрашивать?

[BDA]

function min(a, b: integer): integer;
begin
  if a > b then result := b else result := a;
end;

procedure TForm1.Button1Click(Sender: TObject);//раскрашивание по клику кнопки
var
  i: integer;
begin
  for i := 1 to min(length(richedit1.Text), length(richedit2.Text)) do
    if richedit1.Text[i] <> richedit2.Text[i] then
    begin
      RichEdit1.SelStart := i - 1;
      RichEdit1.SelLength := 1;
      richedit1.SelAttributes.Color := clred;
      RichEdit2.SelStart := i - 1;
      RichEdit2.SelLength := 1;
      richedit2.SelAttributes.Color := clred;
    end;
  if length(richedit1.Text) > length(richedit2.Text) then
  begin
    RichEdit1.SelStart := length(richedit2.Text) - 1;
    RichEdit1.SelLength := length(richedit1.Text) - length(richedit2.Text);
    richedit1.SelAttributes.Color := clred;
  end
  else
  begin
    RichEdit2.SelStart := length(richedit1.Text) - 1;
    RichEdit2.SelLength := length(richedit2.Text) - length(richedit1.Text);
    richedit1.SelAttributes.Color := clred;
  end;
end;

[Marianna22]

Офигенно!!! Слово не для девушки, но спасибо огромнейшее!!! Признательна незнай как)))