[mak-karpov]

У ричэдита есть свойства SelAttrinbutes. Код примерно такой:

Код:

procedure WriteText(AText: String; C : Integer);
var start : Integer;
begin
  Report.SelStart := Length(Report.Text);
  Start := Report.SelStart;
  Report.Lines.Add(AText);
  Report.SelStart := Start;
  Report.SelLength := Length(AText);
  Report.SelAttributes.Color := C;
end;