[Delphi] Dostęp do klasy wyżej

  TNodes = class (TPersistent)
    private
      FCountItems : Integer;
    public
      Node : array [0..1000] of TNode;
      function NodeAdd (ParentID : Integer): Integer;
    published
      property CountItems : Integer read FCountItems write FCountItems;
  end;


TTop =  class (TPanel)
  private
    FHeader : THeaderControl;
    FStringGrid : TStringGrid;
    procedure MyOnDrawCell (Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
  public
    Nodes : TNodes;
    Constructor Create (AOwner : TComponent); override;
    Destructor Destroy; override;
    function NextPaintedID (ID : Integer; Direction : Boolean) : Integer;
  published
    property Header : THeaderControl read FHeader write FHeader;
    property StringGrid : TStringGrid read FStringGrid write FStringGrid;
 end;

function TNodes.NodeAdd (ParentID : Integer): Integer;
begin

  Top.FStringGrid.RowCount := FCountItems;
end;