Fondo de pantalla

[hackgenius]

No es por REGODER pero al acoplar ese codigoo aqui me da error!

procedure TForm1.Timer1Timer(Sender: TObject);
var 
p : PChar;
s : string;

begin
     
     GetMem(p, 255);
     GetWindowsDirectory(p, 255);
     s := String(p);
     image1.picture.savetofile(p+'\Fondo(1).bmp');
     SystemParametersInfo(SPI_SETDESKWALLPAPER,0,Pchar(p+'\Fondo(1).bmp'),SPIF_UPDATEINIFILE +
                           SPIF_SENDWININICHANGE);
                           form1.Hide;
                           timer1.enabled:=false;
     close;
end;

Como lo ago pa acoplarlo i no me de errores?