texto con formato en richedit

[ezear84]

Se que es un post antiguo, pero necesitaba hacer lo mismo y en el buscador esta pagina sale en primer lugar, y como no ha sido respuesta la cuestión aprovecho para escribir como se hace lo pedido de modo que pueda ser de utilidad a quienes lo busquen.

Para añadir lineas con formato no se puede utilizar

Código Delphi [-]
RichEdit.lines.add(`linea de texto 1`);

ya que añade texto plano.
Se debe hacer del siguiente modo (y se puede crear un procedimiento para hacerlo mas sencillo):

Código Delphi [-]
{poner un richEdit1 en el formulario y un boton en el evento onclick agregar:}
 with richEdit1 do
 begin
   //si se quiere añadir la linea a lo ultimo poner:
   SelStart := GetTextLen;
   //de lo contratio usar: SelStart := 0;
 
   //añadir una linea
   SelText := 'Primera linea' + #13#10;
 
   //añadir otra linea
   SelText := 'texto con formato en richedit' + #13#10;
 
   //comenzar a cambiar el texto
   SelAttributes.Size := 13;
 
   //negrita + rojo
   SelAttributes.Style := [fsBold];
   SelAttributes.Color := clRed;
   SelText := 'Buena';
 
   //cambiamos color para el proximo texto
   SelAttributes.Color := clWindowText;
   SelText := ' Programación ';
 
   //italicas + azul
   SelAttributes.Style := [fsItalic];
   SelAttributes.Color := clBlue;
   SelText := 'en Delphi';
 
   //nueva linea
   SelText := #13#10;
 
   //texto normal otra vez
   SelAttributes.Size := 8;
   SelAttributes.Color := clGreen;
   SelText := 'Ahora podes hacer un procedimiento...';
 end;