最小限の Hung Up コード

Hang.pas

program Project1;

type
  IFoo<T> = interface;

  TBar<T> = record
    Value: IFoo<TArray<T>>;
  end;

  IFoo<T> = interface
    function Bar: TBar<T>;
  end;

function Test: TBar<Integer>;
begin
  Result.Value.Bar;
end;

begin
end.