Zmiana pulpitu za pomoca rejestru

Moze wiecie jak zmienic tapete za pomoca rejestru, to kawalek mojego kodu:
procedure Tobrazek.pulpitClick(Sender: TObject);
var
Reg : TRegistry;
przed : String;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Control Panel\Desktop',False);
przed := Reg.ReadString('Wallpaper');
Reg.WriteString('PrevWallpaper',przed);
Reg.WriteString('Wallpaper',FileListBox1.FileName);
Finally
end;
end;
Zrobcie tak aby sie automatycznie sie zmieniala tapeta, czekam tylko dzisiaj na to, bo pozniej bedzie za pozno

Juz nie trzeba