Fix name resolution failures around ancestors of enclosing types

[cirras]

This PR fixes name resolution failures in the following scenario:

• The name occurrence is in the method of a nested type (TFoo)
• The name occurrence is trying to access a member of the enclosing type (TBar)
• The name declaration is from an ancestor of the enclosing type (TBaz)

Example:

type
  TBaz = class
    class procedure BazMethod;
  end;

  TBar = class(TBaz)
    type
      TFoo = class
        procedure FooMethod;
      end;
  end;

procedure TBar.TFoo.FooMethod;
begin
  // This now correctly resolves to TBaz.BazMethod
  BazMethod;
end;

[fourls]

Looks good!