Memo con Línea de colores

[Clantt]

hola a todos como les va, he estado intentando escribir una linea de texto en un memo de un color y la sigueinte de otro color pero nada, mi poca experiencia me hizo hacer esto.

Código Delphi [-]
 ....
 memo1.font.color := clBlue;
 memo1.lines.add := 'Esto es un texto en azul';
 memo1.font.color := clRed;
  memo1.lines.add := 'Esto es un texto en Rojo';
 ....

Muy bonito pero cuando se aplica la línea de comando del color todo el texto del memo se cambia entonces todo queda o azul o rojo pero no cada línea, alguien sabe como hago este truco de lines de colores.

un saludo a todos