[dec]

Hola,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with RichEdit1 do
  begin
    SelStart := 0;
    SelAttributes.Color := clBlue;
    Lines.Add('Línea de texto azul');
    SelAttributes.Color := clBlack;
    Lines.Add('Línea de texto negro');
  end;
end;