İlk olarak aşağıdaki Fonksiyonu (Function) kodlarımıza ekleyelim

Fonksiyon :

function RErenkle( re:TRichEdit; s:string; f:TColor; fs:TFontStyles; fn:TFontName): string;
begin
 Re.SelAttributes.Color := f;
 Re.SelAttributes.Style := fs;
 re.Lines.Add(s);
end;

Kullanımı :

 Rerenkle(Richeditin adı, ' Eklenecek Mesaj ' , yazı rengi, [yazı sitili], 'Yazı tipi adı '); 

{ Tek sitil }
 RErenkle(richedit1,'Ali',clBlack,[fsBold],'Ms Shell Dlg 2');

{Çİft Sitil }

 RErenkle(richedit1,'Ali',clBlack,[fsBold,fsitalic],'Ms Shell Dlg 2');