Взрыв(DelphiX)

[Nazar1994]

Есть код . Надо чтоб после взрыва ,Tpula уничтожалась.(просьба мастерам не критиковать код и вопрос)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DXClass, DXSprite, DXInput, DXDraws;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    DXInput1: TDXInput;
    DXSpriteEngine1: TDXSpriteEngine;
    DXTimer1: TDXTimer;
    DXTimer2: TDXTimer;
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  d:double;

implementation

{$R *.dfm}
type
TPula=class(TImageSprite)
 protected
  procedure domove(movecount:integer);override;
 public
 end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
form1.DXInput1.Update;
form1.DXSpriteEngine1.Move(lagcount);
form1.DXSpriteEngine1.Dead;
form1.DXDraw1.Surface.Fill(0);
form1.DXSpriteEngine1.Draw;
form1.DXDraw1.Flip;
end;

{ TPula }

procedure TPula.domove(movecount: integer);
begin
  inherited domove(movecount);
  if y>100 then y:=y-3
  else
   begin
    image:=form1.DXImageList1.Items.Find('bax');
    width:=image.Width;
    height:=image.Height;
    animcount:=image.PatternCount;
    animspeed:=15/1000;
    animstart:=0;
    animlooped:=false;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 with tpula.Create(form1.DXSpriteEngine1.Engine) do
  begin
   image:=form1.DXImageList1.Items.Find('pula');
   width:=image.Width;
   height:=image.Height;
   x:=400;
   y:=550;
  end;
end;

end.

[Beermonza]

Nazar1994, ну вы совесть-то имейте ))) ...может сначала практиковаться думать и применять простейшие логичные коды? ...использовать классы, процедуры, ...вам в раздел "Общие вопросы Delphi", ...какой смысл начинать делать игру, если вы не разбираетесь еще ни в чем? ...и почитать мануал по DelphiX сперва стоит, воспользуйтесь поиском в этой теме, я выкладывал.

[ROD]

Tpula

А не Лутше было ее назвать TBulet? транслит, довольно часто, трудно читать