Не рисуется спрайт в Delphix

[DOLBY]

Товарищи программисты, есть проблема. Написал простенькую прогу при помощи компонентов Delphix по аналогии с примерами из DelphiWorld. Эта "прога" должна просто выводить анимированный спрайт на экран в полноэкранном режиме. Проблема в том, что спрайт не выводится на экран.
Помогите пожалуйста.

P.S. вложил файлы проекта.

P.P.S. код:

unit Unit1;

interface

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

type
  TForm1 = class(TDXForm)
    DXDraw1: TDXDraw;
    DXSpriteEngine1: TDXSpriteEngine;
    DXTimer1: TDXTimer;
    DXImageList1: TDXImageList;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DXForm1: TForm1;

implementation

{$R *.dfm}

////////////////////////////////////////////////////////////////////////////////
type
  TAsterix = class (TImageSpriteEx)
   constructor Create (AParent : TSprite) ; override;
   procedure DoMove (movecount : Integer) ; override;
  end;

constructor TAsterix.Create(AParent : TSprite) ;
begin
 inherited Create (AParent);
 Image:=DXForm1.DXImageList1.Items.Items[0];
 Width:=Image.Width;
 Height:=Image.Height;
 X:=100;
 Y:=100;
 Z:=0;
 AnimCount:=Image.PatternCount;
 AnimLooped:=true;
 AnimPos:=1;
 Angle:=0;
end;

procedure TAsterix.DoMove(movecount : Integer);
begin
 inherited DoMove(movecount);
 AnimPos:=AnimPos+1;
end;

////////////////////////////////////////////////////////////////////////////////

procedure TForm1.FormCreate(Sender: TObject);
begin
 DXImageList1.Items.MakeColorTable;
 DXDraw1.ColorTable := DXImageList1.Items.ColorTable;
 DXDraw1.DefColorTable := DXImageList1.Items.ColorTable;
 DXDraw1.UpdatePalette;

 DXDraw1.Options := [doFullScreen, doFlip];
 DXDraw1.Width := 1024;
 DXDraw1.Height := 768;
 DXDraw1.Display.Width := 1024;
 DXDraw1.Display.Height := 768;
 DXDraw1.Display.BitCount := 16;
 DXForm1.BorderStyle := bsNone;
 DXDraw1.Left := 0;
 DXDraw1.Top := 0;
 DXDraw1.Cursor := crNone;
 DXDraw1.Initialize;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case key of
  VK_ESCAPE: Close;
 end; 
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
 if not DXDraw1.CanDraw then
  close;
 DXSpriteEngine1.Move(1);
 DXSpriteEngine1.Dead;
 DXDraw1.Surface.Fill(0);
 DXSpriteEngine1.Draw;
 DXDraw1.Flip;
end;

end.