изменить цвет в delphi

[W0LF]

Поиском религия запрещает пользоваться? В гугле 2-4 строка одни ответы несколькими способами...

 procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
 begin
   with ARichEdit do
   begin
     SelStart := Length(Text);
     SelAttributes.Color := AColor;
     SelAttributes.Size := 8;
     SelAttributes.Name := 'MS Sans Serif';
     Lines.Add(AText);
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   AddColoredLine(RichEdit1, 'Hallo', clRed);
   AddColoredLine(RichEdit1, 'Hallo', clGreen);
 end;

[Djeka(c)]

как сделать если RichEdit Увидит строчку 850 :и всё что после неё до мин. закрашивалось в красный цвет -) плиииз помогите

[_Engine_]

Ну, например так:

procedure ColorFromLine(ARichEdit: TRichEdit; const FromLine: Integer;
  AColor: TColor);
var i, l, OldSel : Integer;
begin
  if assigned(ARichEdit) then
  begin
    if FromLine > (ARichEdit.Lines.Count - 1) then Exit;
    l := 0;
    for i := 0 to FromLine - 1 do
      l := l + Length(ARichEdit.Lines.Strings[i]);
    with ARichEdit do
    begin
      OldSel := SelStart;
      SelStart := l + 1;
      SelLength := Length(ARichEdit.Text) - l;
      SelAttributes.Color := AColor;

      SelLength := 0;
      SelStart := OldSel;
    end;
  end;
end;