请教：此代码为何不显示动态加载的图像？(想通过点击按钮顺序显示控件中的图像)

Question

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  if not DXDraw1.CanDraw then Exit;  DXDraw1.Surface.Fill(0);
  DXImageList1.Items[I].Draw(DXDraw1.Surface, 0, 0, 0);  DXDraw1.Flip;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if I <= 3 then
    Inc(I); //点击按钮顺序显示控件中的图像
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  /////////begin 动态加载图像///////////
  DXTimer1.Enabled := False;
  DXImageList1.Items.Add;
  DXImageList1.Items[DXImageList1.Items.Count - 1].Picture.Bitmap.LoadFromFile('C:\Documents and Settings\zlb\桌面\基准方块资源\BackGround1.bmp');
  DXTimer1.Enabled := True;
  /////////end 动态加载图像///////////
end;