Funguje len ak počítač podporuje suspend mode.

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetSystemPowerState(True, True);
end;