problema al cambiar fondo de pantalla

[JaMFrY]

En mi aplicacion tengo este codigo

var 
p : PChar;
s : string;

begin

     GetMem(p, 255);
     GetWindowsDirectory(p, 255);
     s := String(p);
     image1.picture.savetofile(p+'\Migato.bmp');

     SystemParametersInfo(SPI_SETDESKWALLPAPER,0,Pchar(p+'\Migato.bmp'),SPIF_UPDATEINIFILE +
                           SPIF_SENDWININICHANGE);

pero cuando lo ago servir no me cambia el fondo...namas me quita el que tengo...aver si me podeis ayudaR!!! gracias.!