Articles

Use SystemParametersInfo with SPI_SETSCREENSAVEACTIVE parameter.

procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);
end;