Bunas,
Podrías fijarte en la web de Trucomanía o mismo en la búsqueda del foro puesto que lo que solicitás se ha tratado anteriormete.
Respondiendo tu inquitud de la API quedaría así:
Código Delphi
[-]
uses
windows,...;
...
var
lParam : LontInt;
...
lParam := 0;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @lParam, 0);
...
Como verás es mucho más simple el trato de las APIs desde Delphi.