TImage jako tło pulpitu

Co zrobić, aby ustawic komponent TImage jako tło pulpitu? ;(

Komponentu nie da się ustawić jako tło pulpitu.
Pewnie chodzi ci o to jak ustawić na tło obraz znajdujący się w tym komponencie.
Musisz zapisać obrazek jako plik, a następnie użyć jednej z windowsowych funkcji API, niestety nie pamiętam jak ona wygląda.
Przeszukaj sobie plik windows.pas, może jak będę miał czas to sam poszukam.

np.

procedure TForm1.Button1Click(Sender: TObject);
var
  sWallPaperBMPPath: string;
begin
  sWallPaperBMPPath := 'C:\wall.bmp';
  if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(sWallPaperBMPPath),
    SPIF_SENDWININICHANGE) then
    ShowMessage('Zmieniono tapete.')
  else
    ShowMessage('Bład!');
end;

Bóg zapłac dobry człowieku [soczek]