请问：在WindowsXP下如何通过Delphi编程实现把某张图片设置为“平铺”墙纸（Tile)

已知以下代码在Window98/2000中均可以达到目的（Tile)但在XP下，以下代码的结果和“居中”（Center)相同，不解！
  Reg:=Tregistry.Create;
  Reg.RootKey:=HKey_Current_User;
  reg.openkey('control panel\desktop',false);
  Reg.WriteString('TileWallPaper','0');
  Reg.WriteString('WallPaper','d:\A.bmp');
  Reg.WriteString('WallpaperStyle','0');
  systemparametersinfo(spi_setdeskwallpaper,0,nil,spif_sendchange);
  Reg.CloseKey;
  Reg.Free;