procedure TForm1.Button1Click(Sender: TObject); 
begin 
  with RichEdit1.SelAttributes do 
  begin 
    Color := clRed; 
    Height := Height + 5; 
  end; 
  RichEdit1.Lines.Add('Diese Textzeile wird rot.'); 
end; 
 
// Allerdings funktioniert das nicht, wenn "Worpwrap" auf "False" steht,
// in "OnCreate" bereits Text eingefügt wurde welcher breiter als das
// Richedit ist und der Cursor am Ende der Zeile steht.
// Dann muss man eine kleinen Trick anwenden:
 
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  with RichEdit1, SelAttributes do // <---
  begin 
    SelStart := maxint;  // <---
    Color := clRed; 
    Height := Height + 5; 
  end; 
  RichEdit1.Lines.Add('Diese Textzeile wird rot.');
end;