procedure SetEnumPropExW(Instance: TObject; PropInfo: PPropInfo; const Value: InvString);

SetEnumPropExW(TObject * Instance, PPropInfo PropInfo, const InvString Value);