function Supports(const Instance: TObject; const IID: TGUID): Boolean;

TntSysUtils

This is function TntSysUtils.Supports.