[BlackDizel]

спасет, когда я найду способ передать в его значения:
а) переменную типа Tobject
б) переменную перечисляемого типа, заданную в соответсвии с переменной типа Tobject

способы реализации пункта б и хочу узнать)