delphi的接口的意义是不是跟C++和Java的不同呢

IInterface1 = interface
end;

IInterface2 = interface(IInterface1)
  PRocedure method();
end;

TClass1 = class(TInterfacedObject, IInterface2)
......
end;

首先，编译器不承认TClass1是IInterface1的派生，一定要写成TClass1 = class(TInterfacedObject, IInterface2, IInterface1)才可以。

接着，这样子也不行：
function xxx(): IInterface2;
var
   obj: TObject;
begin
   obj := TClass1.Create;
   result := obj as IInterface2; //不行
   result := IInterface2(obj); //也不行
end;