Для задания свойства шрифта можно щелкнуть по кнопке (рисунок 1):


Рис.1. Кнопка вывода окна для задания характеристик шрифта

и появится окно, где можно задать характеристики шрифта (рисунок 2).


Рис.2. Окно задания характеристик шрифта

    Однако есть возможность задавать программно характеристики шрифта. Для этого нужно использовать свойства класса TFont.

    Тип TFont является сложным типом. Для того, чтобы увидеть его подсвойства, достаточно щелкнуть в Object Inspector по символу "+", расположенному слева от названия свойства. Он превратится в символ "-", и мы увидим следующие подсвойства (рисунок 3):


Рис.3. Список подсвойств класса TFont

    Проиллюстрируем использование некоторых из этих подсвойств на конкретном примере. Расположим на форме два компонента TListBox, в каждом из которых, используя свойство Items, наберем указанные значения (рисунок 4):


Рис.4. Внешний вид проекта

    В обработчике OnClick кнопки (компонент TButton) разместим следующие операторы: 

procedure TForm1.Button1Click(Sender: TObject);
begin
  case ListBox1.ItemIndex of //Задание цвета
    0: Form1.Font.Color:=clRed;
    1: Form1.Font.Color:=clGreen;
    2: Form1.Font.Color:=clBlue;
  end;
  Form1.Font.Style:=[]; //Очистить от ранее заданных значений
  case ListBox2.ItemIndex of //Начертание
            // полужирный
    0: Form1.Font.Style:=Form1.Font.Style+[fsBold]; 
            // курсив
    1: Form1.Font.Style:=Form1.Font.Style+[fsItalic]; 
           // подчеркнутый
    2: Form1.Font.Style:=Form1.Font.Style+[fsUnderline]; 
           // перечеркнутый
    3: Form1.Font.Style:=Form1.Font.Style+[fsStrikeOut]; 
  end;
end;
Текст этого примера можно взять здесь.

    Обратите внимание на то, что подсвойство Style является множеством, поэтому при работе с ним использованы конструкции, предназначение для работы с множествами.