如何在Delphi 7中将一个接口转换为另一个接口？

type
  IInterface1 = interface
    procedure Method1;
  end;

  IInterface2 = interface(IInterface1)
    procedure Method2;
  end;

  TMyClass = class(TInterfacedObject, IInterface2)
    procedure Method1;
    procedure Method2;
  end;

var
  Interface1: IInterface1;
  Interface2: IInterface2;
  MyClass: TMyClass;
begin
  MyClass := TMyClass.Create;

  // 将TMyClass实例的接口转换为IInterface1
  Interface1 := MyClass as IInterface1;
  Interface1.Method1;

  // 将TMyClass实例的接口转换为IInterface2
  Interface2 := MyClass as IInterface2;
  Interface2.Method1;
  Interface2.Method2;
end.