anchor.diff:    SetLength(FEntity, 0);
   end;
   
  -function TEntities<T>.Count: Integer;
  +function TEntities{$IFNDEF FPC} <T> {$ENDIF}.Count: Integer;
   begin
     Result := Length(FEntity);
   end;
   
  -function TEntities<T>.Count(X, Y: Integer): Integer;
  +function TEntities{$IFNDEF FPC} <T> {$ENDIF}.Count(X, Y: Integer): Integer;
   var
     I: Integer;
   begin
  
positive.code:       Inc(Result);
  end;
  
  constructor TEntities<T>.Create;
  begin
    Sections := TStringList.Create;
  end;
  
  procedure TEntities<T>.Delete(const Index: Integer);
  begin
    FEntity[Index].Active := False;
  end;
  
  destructor TEntities<T>.Destroy;
  begin
    Sections.Free;
    Self.Clear;
    inherited;
  end;
  
  function TEntities<T>.GetIndex(SectionID: string): Integer;
  var
    I: Integer;
  begin
  
negative.code:     end;
  end;
  
  function TEntities{$IFNDEF FPC} <T> {$ENDIF}.GetIndex(N, X, Y: Integer): Integer;
  var
    I, J: Integer;
  begin
  