function GetScreenSaverTimeout: Integer;begin SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, @Result, 0);end;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(IntToStr(GetScreenSaverTimeout) + ' Sec.');end;