[ApplicatiOn]

так, задачу понял...

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

пробуй...