TPersistence 상속된 파입으로
TTextAttributes; 객체가 있란게 있는데 이것은 현재 RichEdit 컨트롤의
현대 택스트 폰트에 대한 각종정보, 폰트의 컬러, 높이, 이름, 크기, 스타일등
을 저장하고 있습니다.
요놈을 잘 요리하면 될 것같습니다.

ATextColor : TTextAttributes;
해주시구요
그런다음
oldColor := aTextColor.Color;
aTextColor.Color := clNavy;
Richedit1.Lines.Add('문자열');
AtextColor.Color := oldColor;

뭐 이런식으로 하면 될껍니다 잘은 모르지만 어렴풋이 기억이
나네요...자세한것은 도움말을  참조 해보세요....