System Delphi

procedure LauchScreenSaver;
begin
Windows.PostMessage(Windows.GetDesktopWindow,WM_SYSCOMMAND,SC_SCREENSAVE,0);
end;