[roman]

Un ejemplo de lo que dice dec:

Código Delphi [-]
var
  I: Integer;

begin
  I := RichEdit1.Lines.Add('Texto de color ROJO');
  RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, I, 0) + Length('Texto de color ');
  RichEdit1.SelLength := Length('ROJO');
  RichEdit1.SelAttributes.Color := clRed;
end;

// Saludos