Контрольная работа по информатике «Итоговая контрольная работа по информатике. 8 класс»
Инструкция по выполнению работы
ит из трех частей, включающих в себя 11 заданий. Часть 1
4 задания. Часть 3 содержит 1 задание (на выбор), к к
му (на бумаге). На выполнение работы отводится 40
апы решения задач записывать в работе. При оценивании у
Ход решения задачи.
Часть 1​

Ввод графической информации может быть осуществлён с различных устройств: клавиатуры, мыши, сканера или графического планшета. Каждое из них имеет те или иные достоинства, но основной характеристикой является удобство использования. Клавиатура плохо подходит для построения изображений, так как она изначально предназначена для набора символьной, а не графической информации. Однако применение клавиатуры для ввода графической информации имеет определённые преимущества. С клавиш можно перемещать курсор каждый раз на одну позицию. 

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