DelphiX-------Schuss problem !!!

[bundy]

Hallo Leute

Ich hab ein problem.
Warum verschwinden nicht alle Schüsse ?

Delphi-Quellcode:

 Tschuss = class(TImageSpriteEx)
    leben,speed:single;
  public
   constructor Create(AParent: TSprite ); override;
   Procedure DoMove(MoveCount: Integer);override;
    procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
  end;


procedure Tschuss.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
 if Schuss.X>1000 then dead;

end;


constructor Tschuss.Create(AParent: TSprite );
begin
  inherited Create(AParent);
  Image:=Form1.DXImageList1.Items.Find('Schuss');
  width:=image.width;
  height:=image.height;

end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin

DXInput1.Update;
DXSpriteEngine1.Move(1);
DXDraw1.Flip;
DXSpriteEngine1.Draw;
DXSpriteEngine1.Dead;

end;

Nicht alle Schüsse sterben. Und nach ein paar Minuten ruckelt die Anwendung, weil zuviele Sprites da sind
Was mach ich da falsch ?