TBullets = class
 public
   Constructor Create;
   Procedure   AddBullet(BulletType,LifeTime,Power:integer; BulletSpeed:single; CanCrossWall:boolean; const Position, Velocity:x_vector; NotRnd:boolean; Side:integer; UID:integer = -1);
   Procedure   Update(dt:integer);
   Procedure   Draw;
   Procedure   Clear;
 protected
   Items:array of TBullet;
   Count:integer;
   Size:integer;
   Procedure  DeleteItem(ID:integer);
 end;

while (Size>Count) do begin
 inc(Count,10);
 SetLength(Items, Count);
end;

unit ProcArray;

interface

uses Windows, Messages;

type
 TOnEvent=procedure;

 TProcArray = class
 private
   FProc: array of TOnEvent;
 protected
   function GetProc(const ItemIndex: Cardinal): TOnEvent;
   procedure SetProc(const ItemIndex: Cardinal; const Proc: TOnEvent);
 public
   procedure Clear;
   procedure Run;
   function Add(Proc: TOnEvent): Cardinal;
   procedure Delete(ItemIndex: Cardinal);
   property Item[const ItemIndex: Cardinal]: TOnEvent read GetProc write SetProc;
 end;

implementation
 
procedure TProcArray.Run;
var
 i: Cardinal;
begin
 for i := Low(FProc) to High(FProc) do
   if @FProc[i] <> nil then FProc[i];
end;

function TProcArray.GetProc(const ItemIndex: Cardinal): TOnEvent;
begin
 if ItemIndex < Cardinal(Length(FProc)) then
   Result := FProc[ItemIndex]
 else
   Assert(True, as_OutOfRange);
end;

procedure TProcArray.SetProc(const ItemIndex: Cardinal; const Proc: TOnEvent);
begin
 if ItemIndex < Cardinal(Length(FProc)) then
   FProc[ItemIndex] := Proc
 else
   Assert(True, as_OutOfRange);
end;

procedure TProcArray.Clear;
begin
 SetLength(FProc, 0);
end;

function TProcArray.Add(Proc: TOnEvent): Cardinal;
begin
 Result := Length(FProc);
 SetLength(FProc, Result + 1);
 FProc[Result] := Proc;
end;

procedure TProcArray.Delete(ItemIndex: Cardinal);
var
 i: Cardinal;
begin
 if ItemIndex < Cardinal(High(FProc)) then
 begin
   for i := ItemIndex to High(FProc) - 1 do
     FProc[i] := FProc[i + 1];
   SetLength(FProc, High(FProc));
 end
 else
   Assert(True, as_OutOfRange);
end;

end.

TGameObject = class
 ...
end;
TGameObjectArray = array of TGameObject;
TBullet = class(TGameObject)
 ...
end;
TAirplane = class(TGameObject)
 ...
end;

function AddToMassivishe(const AMass: TGameObjectArray; const ANewObject: TGameObject): Integer;
begin
 Result := Length(AMass);
 SetLength(AMass, Result + 1);
 AMass[Result] := ANewObject;
end;