Освобождение памяти от объектов

type
  TStage = class(TObject)
    level: integer;
    Hero: THero;
 
    bullets: TList<TBullet>;
    bots: TList<TBot>;
 
 
.  .  .  
 
procedure TStage.update;
. . . 
if bullets.Items[k - m - 1].y < -10 then
    begin
      bullets.Items[k - m - 1].Destoy;
      // Или же bullets.Items[k - m - 1].Free;
      bullets.Delete(k - m - 1);
      m := m + 1;
    end;

procedure proc1;
var hello: TObject;
begin 
   hello := TObject.create;
   hello.free;
end;

  FreeAndNil(bullets.Items[k - m - 1]);
  bullets.Delete(k - m - 1);

procedure TStage.fire;
var
  Bullet_: TBullet;
begin
  case currentArrowType of
    Bullet.FREEZE_ARROW:
    begin
      if countFreezeArrow <> 0 then
        Bullet_ := TBullet.Create(currentArrowType)
      else exit;
      countFreezeArrow := countFreezeArrow -1;
    end;
    Bullet.FIRE_ARROW:
    begin
      if countFireArrow <> 0 then
        Bullet_ := TBullet.Create(currentArrowType)
      else exit;
        countFireArrow := countFireArrow -1;
    end;
    Bullet.BOMB_ARROW:
    begin
      if countBombArrow <> 0 then
        Bullet_ := TBullet.Create(currentArrowType)
      else exit;
        countBombArrow := countBombArrow -1;
    end;
    Bullet.NORMAL_ARROW:
    begin
      Bullet_ := TBullet.Create(currentArrowType);
    end;
  end;
  Bullet_.x := Hero.x + 20;
  Bullet_.y := Hero.y;
  Bullet_.img := TBitmap.Create;
  Bullet_.img.LoadFromFile('bullet2.bmp');
  Bullet_.img.TransparentColor := Bullet_.img.canvas.Pixels[0, 0];
  Bullet_.img.Transparent := true;
  bullets.Add(Bullet_);
end;

FreeAndNil(bullets.Items[k - m - 1]);

FreeAndNil(TObject(bullets.Items[k - m - 1]));

  bullets.Items[k - m - 1].Free;
  bullets.Items[k - m - 1] := NIL;
  bullets.Delete(k - m - 1);

Bullet_.img := TBitmap.Create;