with Win32.Winreg;
use  Win32.Winreg;

procedure SystemShut is

   Issucess      : Win32.BOOL;
    begin
      Issucess:=InitiateSystemShutdown
                  (null,null,0,WIN32.FALSE,WIN32.TRUE);
end SystemShut;


This programme is to initiate the system shut down, but the function is
returning false, which means there is a error.
Can anyone fix.