[Assistant]

вот как-то так наверное (взято из Delphi World):

Код:

procedure TMainForm.AddColoredLine(AText: string; AColor: TColor; AStyle: TFontStyles; ASize: integer);
begin
  with RichEdit1 do
  begin
    SelStart := Length(Text);
    SelAttributes.Color := AColor;
    SelAttributes.Size := ASize;
    SelAttributes.Name := 'MS Sans Serif';
    SelAttributes.Style := AStyle;
    Lines.Add(AText);
  end;
end;

юзать так:

Код:

AddColoredLine('Вывод: Mп<Mн, поэтому пуск двигателя под нагрузкой невозможен',clRed,[fsBold],8);