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 и конечно описка выделенная ранее, как на нее только компилятор не матерится