//Отключить
procedure TForm1.DisablebtnClick(Sender: TObject);
var
b: boolean;
begin
b := false;
SystemParametersInfo(SPI_SCREENSAVE RRUNNING, 1, @b, 0);
end;

//Включить
procedure TForm1.EnablebtnClick(Sender: TObject);
var
b: boolean;
begin
b := false;
SystemParametersInfo(SPI_SCREENSAVE RRUNNING, 0, @b, 0);
end;