Заводите в Page глобальную
текстовую (а не булевую!) переменную, эту переменную вставляете в нужном поле в Property "StyleExpr" в Value (property "Style" вообще не трогаете).
В коде в OnAfterGetRecord заполняете текстовую переменную опциями, которые имеются в property "Style". Если текстовая переменная пустая или содержит текст, короторого нет в property "Style" то ничего страшного не произойдёт, поле будет просто отображаться без каких-либо стилей.
Навскидку пример из Page 22 "Customer List", OnAfterGetRecord() (лучше конечно сделать функцию), где описанная глобальная переменная StyleExprText заполняется нужными стилями:
Код:
OnAfterGetRecord()
StyleExprText := '';
CASE Blocked OF
Blocked::Ship: StyleExprText := 'Favorable';
Blocked::Invoice: StyleExprText := 'StrongAccent';
Blocked::All: StyleExprText := 'Attention';
END;