Activar el salvapantallas

[[Lepe]]

Intenta con:

procedure TForm1.Button1Click(Sender: TObject);
begin
  sleep(700);
  ActivateScreenSaver(true);
end;

lo mandas actiar, pero aún estás soltando el ratón, y probablemente moviéndolo unos pixels, por tanto ni siquiera aparece.

Me suele pasar al apagar el monitor.

Saludos