Como fazer um protetor de tela no delphi?

Para o pessoal que queria saber, esta ai. Lembrando também que você poderá encontra um exemplo com fontes na parte de exemplo. A) No .Dpr ponha {$D SCRNSAVE } depois do uses

B) No Form principal nao ponha borda ou icone. No metodo Activate ponha left e top como 0 e o Windowstate como wsMaximize.

C) no form.Create ponha application.OnMessage para um metodo que controle a desativacao do screen saver. Ponha tb o application.OnIdle para "rodar" o dito cujo...

D) Tb no Form.Create teste a linha de comando para /c ou /s. Estes Parametros dizem o que e' para fazer (/c configura)

E) Compile e renomeie o .exe p/ .scr, move para o diretorio do windows e teste.