properly resolve inherited properties

[Sorien]

type
    TProp = class(TObject)
    public
        X: Integer;
    end;

    TFoo = class
    private
        FFaa: TProp;
        property Faa: TProp read FFaa;
    end;

    TFooChild = class(TFoo)
    public
        property Faa;
    end;

implementation

{$R *.dfm}

procedure a();
var
    T: TFooChild;
begin
    T.Faa.<carrret> // No suggestions but it should suggest X from TProp 
end;

[George Bakhtadze]

fixed in 1.14