怎么用delphix来设置背景啊

Question

这是我的代码var
BackSprite: TBackGroundSprite;procedure TMainForm.FormCreate(Sender: TObject);
begin  ImageList.Items.MakeColorTable;
  DXDraw.ColorTable := ImageList.Items.ColorTable;
  DXDraw.DefColorTable := ImageList.Items.ColorTable;
  BackSprite := TBackGroundSprite.Create(DXSpriteEngine1.Engine);  with BackSprite do
  begin
    SetMapSize(1, 1);
    Image := ImageList.Items.Find('background');
    Z := -2;
    Tile := True;
  end;怎么背景还是老样子黑色的，谁能告诉我那里设置错了

Answer 1

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

Answer 2

呵呵，其实有Demo看的http://lysoft.7u7.net

Answer 3

创建了是创建了，但精灵管理器没Draw,怎么会显示呢???