Delphi - papel tapiz

Hola tengo un ciber y me gusytaria solucionar un problema grandismo que tengo.
tengo nocion en delphi y me gustaria saber como puedo hacer un pequeño programa que restringa poner papel tapiz.
por que va gente mayor y niños y hay terrbles imagenes pornos. y queda mal..

si me pueden dar una mano les agradecere

Quizas es más facil hacer un batch que se ejecute cuando se conecte el usuario, o cuando el pc parta, eso, de todas formas depende de el SO de las estaciones.

El batch copiaria la imagen que tu quieras para que siempre se actualize el papel tapiz, esto remplazaria lo que tenga.

Encontré este código, no lo he probado, sirve para establecer el papel tapiz del escritorio en tiempo de ejecución.

Bitmap:='c:\file\back.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,
Pchar(BitMap),SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE);