procedure TForm1.Button1Click(Sender: TObject);
begin
If FontDialog.Execute then
RichEdit.SelAttributes.Assign(FontDialog1.Font);
RishEdit1.SetFocus;
End;
Найдите ошибку В ДЕЛФИ В ПРОГРАММЕ ИСПРАВТЕ ЕЕ!!!!!!!!!

Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится