пропадает шрифт и цвет в RichEdit

[mpdasa]

Мой пример. Есть RichEdit. С помощью UpDown2Click меняю размер шрифта.

procedure TMainForm.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
RichEdit2.Font.Size:=StrToInt(Edit1.text); //беру из Edit1 размер шрифта
end;

И когда меняю размер шрифта (в запущенной программе), то шрифт, который у меня задан для RichEdit пропадает, пропадает также раскраска цветом:

RichEdit2.SelStart :=0;
RichEdit2.SelLength :=4;
RichEdit2.SelAttributes.Color:=ClGreen;

Попробовал решить проблему кодом

RichEdit2.SelectAll;
RichEdit2.Font.name:=('Symbol');

Не помогло.

Попробовал все варианты CharSet. Безуспешно.

И вот что я еще обнаружил. С мемо этой проблемы не было, все работает как надо. Имеется ввиду шрифт. Раскраска цветом для мемо не предусмотрена.

Поменял шрифт на другой, все работает. Получается, что проблема именно со шрифтом Symbol... и с RichEdit.

Поискал в интернете решение, нашел только более детальное описание моей проблемы и попытки ее решить. У автора той проблемы ее решить получилось, но у меня нет.

http://www.cn.ru/forum/showthread.php?t=132043

Почему RichEdit не дружит с этим (Symbol) шрифтом равно как и со многими другими шрифтами, как описано в обсуждении по ссылке?

Дайте надежду, что проблему можно решить.