Source position: variants.pp line 312
procedure VarResultCheck(
AResult: HRESULT
);procedure VarResultCheck(
AResult: HRESULT;
ASourceType: TVarType;
ADestType: TVarType
);