Type
TShip=class(TimageSprite)
Public
Constructor Create(Aparent:TSprite);Override;
end;
Constructor Tship.Create(Aparent:Tsprite);
Begin
Inherited Create(Aparent);
image:=form1.DXImageList1.Items.Find('MySprite');
X:=100;
Y:=100;
Z:=0;
Pixelcheck:=True;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 10/1000;
end;
procedure TForm1.DXTimer1Activate(Sender: TObject);
begin
Dxdraw1.Surface.Fill(15);
DxSpriteEngine1.Move(1);
DxspriteEngine1.Dead;
DxSpriteEngine1.Draw;
Dxdraw1.Flip;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TShip.create(DXSpriteEngine1.Engine);
end;
end.