procedure Include(var ASet:  Множество;  Value:  Порядковый тип);

Процедура Include добавляет элемент Value в множество, хранящееся в переменной ASet. Тип Value должен соответствовать базовому типу ASet. Include не является настоящей процедурой.

Заметьте, что не допускается использование свойства для ссылки нз множество, т. к. свойство не может выступать в качестве var парамет ра. Для добавления элемента в множество следует применять оператор "+", например:
Font.Style := Font.Style + [fsBolв];

Пример рассмотрен в описании процедуры Exclude.