program wallpapr;
   uses Registry, WinProcs;

   procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean );
   var
     reg : TRegIniFile;
   begin
   // Изменяем ключи реестра
     reg := TRegIniFile.Create('Control Panel\Desktop' );
     with reg do begin
       WriteString( '', 'Wallpaper', sWallpaperBMPPath );
       if( bTile )then WriteString('', 'TileWallpaper', '1' )
       else WriteString('', 'TileWallpaper', '0' );
     end;
     reg.Free;
   // Оповещаем всех о том, что мы изменили системные настройки
   SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
   end;

   procedure TForm1.Button1Click(Sender: TObject);
   begin
    // пример установки WallPaper по центру рабочего стола
    SetWallpaper('c:\winnt\winnt.bmp', False );
   end;