Добавить собственный стиль класса временных объектов
function GetStyleIndexByTag(aTag: integer): integer;