[ALexandr555]

сделал так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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;

Админ: А теги за тебя Дед Мороз расставлять будет? ))