anchor.diff:  {$REGION ' TEntities '}
   
   procedure TEntities{$IFNDEF FPC} <T> {$ENDIF}.Clear;
  -var
  -  I: Integer;
   begin
     Sections.Clear;
  -  for I := 0 to Count - 1 do
  -    FEntity[I].Free;
  -  SetLength(FEntity, 0);
  +  inherited Clear;
   end;
   
   function TEntities{$IFNDEF FPC} <T> {$ENDIF}.Count: Integer;
   begin
  -  Result := Length(FEntity);
  +  Result := inherited Count;
   end;
   
   function TEntities{$IFNDEF FPC} <T> {$ENDIF}.Count(X, Y: Integer): Integer;
  
positive.code: {$ENDREGION ' TMapGenerator '}
  {$REGION ' TGenericEntities '}
  
  function TGenericEntities{$IFNDEF FPC} <T> {$ENDIF}.GetEntity(Index: Integer): T;
  begin
    Result := FEntity[Index];
  
negative.code: 
  procedure TEntities{$IFNDEF FPC} <T> {$ENDIF}.Delete(const Index: Integer);
  begin
    Entity[Index].Active := False;
  end;
  
  destructor TEntities{$IFNDEF FPC} <T> {$ENDIF}.Destroy;
  