E2506

unit E2506;

interface

type
  TFoo = class

  end;

  TBar<T> = class
  public
    procedure DoIt;
  end;

implementation

type
  TFooHelper = class helper for TFoo
  public
    procedure ExtendFooWithSomething;
  end;

{ TFooHelper }

procedure TFooHelper.ExtendFooWithSomething;
begin
  Writeln('ExtendingFooWithSomething');
end;

{ TBar<T> }

procedure TBar<T>.DoIt;
var
  Foo: TFoo;
begin
  Foo.ExtendFooWithSomething;
end;

end.