TObjectList. Проверить правильность использования

[Roof]

Создаю класс MyLand. Желаю поместить объекты данного класса в TObjectList , в связи с этим создаю новый класс TMyListLands наследник от TObjectList .
Вот модуль с этими двумя классами:

unit MyLand;

interface

uses Contnrs;

type
  TMyLand = class // класс для посевных полей
  private
    // Поля
    FActive: Boolean; //Активация поля
    FNumber: Integer; //Номер
    FName: string; //Имя поля
  public 
    procedure SetActive(const AActive: Boolean); //Активация поля

    constructor Create;
    destructor Destroy; override;

    property Active : Boolean read FActive; //Активация поля
    property Number : integer read FNumber write FNumber; //номер поля
    property Name : string read FName write FName; //имя поля

  end;

  TMyListLands = class(TObjectList) // класс для хранения данных типа TMyLand
  private
    function GetItems(Index: Integer): TMyLand;
    procedure SetItems(Index: Integer; const Value: TMyLand);
  published
    public
    property Items[Index: Integer]: TMyLand read GetItems write SetItems; default;
  end;

implementation

{ TMyLand }

constructor TMyLand.Create;
begin

end;

destructor TMyLand.Destroy;
begin

end;

procedure TMyLand.SetActive(const AActive: Boolean);
begin
  if Active <> AActive then // Если состояние изменяется
    FActive := AActive; // Сохранение состояния в поле
end;


{ TMyListLands }

function TMyListLands.GetItems(Index: Integer): TMyLand;
begin
  Result := TMyLand(inherited GetItem(Index));
end;

procedure TMyListLands.SetItems(Index: Integer; const Value: TMyLand);
begin
  inherited SetItem(Index, Value);
end;

end.

А вот модуль с использованием Списка объектов:

...
  private
    ListLands : TMyListLands;
    Land : TMyLand;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  ListLands := TMyListLands.Create(true);
  for i := 3 to 9 do begin
    Land := TMyLand.Create;
    ListLands.Add(Land);
    Land.Name := IntToStr(i);
  end;
end;
...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(ListLands);
end;
...

C TObjectList работаю первый раз. Все компилируется и работает. Имена присваиваются объектам в списке, проверял с помощью BreakPoint. Так как компиляция прошла без ошибок и все получилсь с первого раза - возник вопрос - все ли я правильно делаю?

Единственное, что нашел:

Land : TMyLand;

Можно локально объявите в процедуре. Например:

...
  private
    ListLands : TMyListLands;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
  Land : TMyLand;
begin
  ListLands := TMyListLands.Create(true);
  for i := 3 to 9 do begin
    Land := TMyLand.Create;
    ListLands.Add(Land);
    Land.Name := IntToStr(i);
  end;
end;
...