Intenta con:
Código:
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