В методе TCollectionItem получить значение поля класса, содержащего TCollection

[Roof]

1) Класс TProtection является наследником TCollectionItem и содержит метод CalcProt.
2) Класс TCollProtection является наследником TCollection, он содержит Items класса TProtection
3) Класс TLand является наследником TCollectionItem и содержит поле класса TCollProtection

Так вот - мне необходимо в методе CalcProt класса TProtection получить доступ к полям клсаа TLand. Сделал, но получается нужно проходить к полям класса TLand через двух владельцев - TCollection и TLand.

Вопрос - можно ли сделать проще?
Вот мой код:

unit Land;

interface
uses Classes;

type
  TCollProtection = class;
  TLand = class;

  TProtection= class(TCollectionItem)
  private
    FInsekt: real;
    FGerbic: real;
    FFungic: real;
    FProt: real;
    FOwner: TCollProtection;   // для получения владельца
  public
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;
    procedure CalcProt;  // интересует эта процедура
  published
    property Insekt: real read FInsekt write FInsekt;
    property Gerbic: real read FGerbic write FGerbic;
    property Fungic: real read FFungic write FFungic;
    property Prot: real read FProt;
  end;

  TCollProtection = class(TCollection)
  private
    FGtr: real;
    FOwner: TLand; // для получения владельца
  public
    constructor Create(ItemClass: TCollectionItemClass; AOwner: TLand);
    function GetProtection(index: Integer): TProtection;
    procedure SetProtection(index: Integer; Value: TProtection);
    function Add: TProtection;

    property Items[index: Integer]: TProtection read GetProtection
    write SetProtection; default;
    property Gtr: real read FGtr write FGtr;
  end;

  TLand = class(TCollectionItem)
  private
    FCost: real;
    FPrice: real;
    FCollProtection: TCollProtection;  // вложение
    FArea: real;
    FProductivity: real;
  public

    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;

  published
    property Area: real read FArea write FArea;
    property Productivity: real read FProductivity write FProductivity;
    property Cost: real read FCost;
    property Price: real read FPrice write FPrice;
    property CollProtection: TCollProtection read FCollProtection
      write FCollProtection;
  end;

  TCollLand = class(TCollection)
  public

    function GetLand(index: Integer): TLand;
    procedure SetLand(index: Integer; Value: TLand);
    function Add: TLand;
    property Items[index: Integer]: TLand read GetLand
    write SetLand; default;
  end;
  
  TAcLand = class(TComponent)
  private
    name: string;
    FCollLand: TCollLand;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    property CollLand: TCollLand read FCollLand write FCollLand;

  end;

implementation

{ TLand }

constructor TLand.Create(Collection: TCollection);
begin
  inherited;
  FCollProtection := TCollProtection.Create(TProtection, Self);
end;

destructor TLand.Destroy;
begin
  FCollProtection.Free;
  inherited;
end;

{ TCollLand }

function TCollLand.Add: TLand;
begin
  Result := TLand(inherited Add);
end;


function TCollLand.GetLand(index: Integer): TLand;
begin
  Result := TLand(inherited Items[index]);
end;

procedure TCollLand.SetLand(index: Integer; Value: TLand);
begin
  Items[index].Assign(Value);
end;

{ TAcLand }

constructor TAcLand.Create(AOwner: TComponent);
begin
  inherited;
  FCollLand := TCollLand.Create(TLand);
end;

destructor TAcLand.Destroy;
begin
  FCollLand.Free;
  inherited;
end;

{ TProtection }

procedure TProtection.CalcProt;
begin
  FOwner.FGtr := 444;
  FProt := (FInsekt + FGerbic + FFungic + FOwner.FOwner.FArea); // проходим через двух владельцев
end;

constructor TProtection.Create(Collection: TCollection);
begin
  inherited;
  FOwner := Collection as TCollProtection;
end;

destructor TProtection.Destroy;
begin

  inherited;
end;

{ TCollProtection }

function TCollProtection.Add: TProtection;
begin
  Result := TProtection(inherited Add);
end;


constructor TCollProtection.Create(ItemClass: TCollectionItemClass; AOwner: TLand);
begin
  inherited Create(ItemClass);
  FOwner := AOwner;
end;

function TCollProtection.GetProtection(index: Integer): TProtection;
begin
  Result := TProtection(inherited Items[index]);
end;

procedure TCollProtection.SetProtection(index: Integer; Value: TProtection);
begin
  Items[index].Assign(Value);
end;


end.

[mutabor]

А что тебя смущает? Получаешь доступ через два объекта, ну и что? Это не много.
Если тебя смущает, что непонятно потом будет, напиши комментарий поясняющий.

[Roof]

Меня не смущает, а комментарии поясняющие у меня есть у каждого нового поля и каждого нового метода, иначе запутываюсь. Я пытаюсь выйти на рациональные решения в больших (на мой взгляд) объемах данных потому и спрашиваю правильно ли я делаю, или можно все проще. За ответ Спасибо.