Sinon directement dans le code :

RichEdit1.Font.Name := 'Nom d'une police';