uses ...Registry; //подключаем модуль ... 

procedure TForm1.Button1Click(Sender: TObject); 
var Reg: TRegIniFile; 
begin 
Reg := TRegIniFile.Create('Control Panel'); 
Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp'); 
Reg.WriteString('desktop', 'TileWallpaper', '0'); 
Reg.Free; 
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, 

SPIF_SENDWININICHANGE); 
end;