在Delphi中,如何检查IInterface引用是否实现派生但未明确支持的接口？

type
  IMyInterface = interface(IInterface)
    ['{12345678-9ABC-DEF0-1234-56789ABCDEF0}']
    procedure MyMethod;
  end;

  TMyClass = class(TInterfacedObject, IMyInterface)
    procedure MyMethod;
  end;

var
  obj: IInterface;
begin
  obj := TMyClass.Create;
  if Supports(obj, IMyInterface) then
    ShowMessage('The object implements IMyInterface')
  else
    ShowMessage('The object does not implement IMyInterface');
end;

var
  obj: IInterface;
  myIntf: IMyInterface;
begin
  obj := TMyClass.Create;
  myIntf := obj as IMyInterface;
  if Assigned(myIntf) then
    ShowMessage('The object implements IMyInterface')
  else
    ShowMessage('The object does not implement IMyInterface');
end;