这确实是Delphi接口机制的正常行为，咱们一步步拆解你遇到的问题：

1. 为何直接赋值报类型不兼容错误？ #

Delphi的接口模型基于COM规范，接口继承和类继承的“is-a”逻辑完全不同。当你定义IMyIntf = interface(IMyBase)时，只是说明IMyIntf包含了IMyBase的方法签名，但这不代表实现IMyIntf的类会自动被编译器视为同时实现了IMyBase。

举个典型的示例代码：

type
  IMyBase = interface
    ['{GUID-HERE-1}']
    procedure BaseMethod;
  end;

  IMyIntf = interface(IMyBase)
    ['{GUID-HERE-2}']
    procedure IntfMethod;
  end;

  TMyObj = class(TInterfacedObject, IMyIntf)
    procedure BaseMethod;
    procedure IntfMethod;
  end;

此时TMyObj只在实现部分声明了IMyIntf，编译器只会为IMyIntf生成对应的接口映射，不会自动把IMyBase加入类的接口列表。所以当你尝试var BaseIntf: IMyBase; BaseIntf := TMyObj.Create;时，编译器认为TMyObj的实例并没有显式实现IMyBase，因此抛出E2010类型不兼容错误。

2. Supports检测父接口为何返回false？ #

Supports函数的底层是调用IInterface.QueryInterface，而QueryInterface依赖于类的接口映射表（Interface Table）。只有当类在实现部分显式声明了某个接口，该接口的GUID才会被注册到映射表中。

在上面的例子里，TMyObj只声明了实现IMyIntf，哪怕IMyIntf继承自IMyBase，IMyBase的GUID也不会出现在TMyObj的接口映射表中。所以当你调用Supports(MyIntfInstance, IMyBase)时，QueryInterface找不到IMyBase对应的条目，自然返回false。

3. 有无无需硬转换的安全解决方案？ #

当然有，最安全且符合Delphi接口规范的方案是在类的实现部分显式声明实现父接口，修改后的类声明如下：

TMyObj = class(TInterfacedObject, IMyBase, IMyIntf)
  procedure BaseMethod;
  procedure IntfMethod;
end;

这里虽然IMyIntf已经继承了IMyBase，但显式声明IMyBase后，编译器会自动将其加入接口映射表。此时：

• 你可以直接将TMyObj的实例赋值给IMyBase类型变量，不会再报类型错误；
• Supports(MyIntfInstance, IMyBase)会返回true；
• 所有接口调用都是类型安全的，不需要硬转换。

如果实在不想修改类的声明，还可以通过在子接口中添加获取父接口的方法间接实现，但这种方式不如显式声明直观：

IMyIntf = interface(IMyBase)
  ['{GUID-HERE-2}']
  procedure IntfMethod;
  function GetBaseInterface: IMyBase;
end;

// TMyObj中的实现
function TMyObj.GetBaseInterface: IMyBase;
begin
  Result := Self as IMyBase; // 此时因显式声明了IMyBase，as操作符安全
end;

不过还是更推荐第一种显式声明父接口的方案，它更符合Delphi接口设计的最佳实践。

内容的提问来源于stack exchange，提问作者linluk