﻿//value.AsInteger не раотает для Enumerations
      tkEnumeration :
         if asType.Handle=TypeInfo(Boolean) then
            info.Value:=value.AsBoolean
         else info.Value:=value.AsVariant;
