constructor TEnumSettings<TKey>.Create(AKey: TKey);
var
  Value: TValue;
begin
  Value := TValue.From<TKey>(AKey);
  if Value.Kind <> tkEnumeration then
    raise Exception.CreateFmt('%s is not an enumeration.', [Value.TypeInfo.Name]);

  Key := AKey;
end;