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