[Delphi] Problem z losową zmianą tapety.

Czy mógłby mi ktoś powiedzieć jak zmieniać tapete w Windowsie ale żeby program losował z pośród kilku tapety i wybierał za każdym razem inną.

Zaznaczam że program ma spełniać funkcje użytkową (jest pisany dla mnie) bo jakoś sam nie umie się nigdy zdecydować :-|

Za pomoc z góry dziękuje.

--
Don't worry be heapy ...

tablica : array of string;

str:=tablica[random(10)];

SystemParametersInfo(SPI_SETDESKWALLPAPER,0, PChar(str),
SPIF_UPDATEINIFILE or SPIF_SENDWININNICHANGE);