[Winny]

Код:

FontDialog1.Font := RichEdit1.Font; 
   if FontDialog1.Execute then 
   RichEdit1.SelAttributes.Assign(FontDialog1.Font);