На форму поставте Edit и BitBtn

В событии OnClick для BitBtn напишите:

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

SystemParametersinfo(SPI_SetDeskWallPaper, 0, PChar(Edit1.text),SPIF_SENDCHANGE);

End;

 

 

Запустите программу.

Введите путь к bmp файлу и программа назначит его рисунком рабочего стола.