How to execute external program and get it's exit code in delphi

const
  SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5));
  SECURITY_BUILTIN_DOMAIN_RID = $00000020;
  DOMAIN_ALIAS_RID_ADMINS = $00000220;
 
function TakeOwnership(const APath: PAnsiChar): boolean;
var
  _ea: EXPLICIT_ACCESS;
  _old_ACL: PACL;
  _new_ACL: PACL;
  _sd: pointer;
  _err: cardinal;
  _token_handle: THandle;
  _priv: TTokenPrivileges;
  _sid: PSID;
begin
 Result := false;
 if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, _token_handle) then begin
  if LookupPrivilegeValue(nil, PChar('SeTakeOwnershipPrivilege'), _priv.Privileges[0].Luid) then begin
   _priv.PrivilegeCount := 1;
   _priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
   AdjustTokenPrivileges(_token_handle, false, _priv, 0, PTokenPrivileges(nil)^, PDWord(nil)^)
  end;
  if LookupPrivilegeValue(nil, PChar('SeSecurityPrivilege'), _priv.Privileges[0].Luid) then begin
   _priv.PrivilegeCount := 1;
   _priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
   AdjustTokenPrivileges(_token_handle, false, _priv, 0, PTokenPrivileges(nil)^, PDWord(nil)^)
  end;
  CloseHandle(_token_handle)
 end;
  AllocateAndInitializeSid(SECURITY_NT_AUTHORITY, 2, SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, _sid);
 try
  ZeroMemory(@_ea, SizeOf(EXPLICIT_ACCESS));
  _ea.grfAccessPermissions := GENERIC_ALL;
  _ea.grfAccessMode := SET_ACCESS;
  _ea.grfInheritance := SUB_CONTAINERS_AND_OBJECTS_INHERIT;
  _ea.Trustee.TrusteeForm := TRUSTEE_IS_SID;
  _ea.Trustee.TrusteeType := TRUSTEE_IS_WELL_KNOWN_GROUP;
  _ea.Trustee.ptstrName := PChar(_sid);
  _new_ACL := nil;
  _err := SetEntriesInAcl(1, @_ea, nil, _new_ACL);
  if _err = ERROR_SUCCESS then begin
    Result := SetNamedSecurityInfo(APath, SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, _new_ACL, nil) = ERROR_SUCCESS;
    LocalFree(cardinal(_new_ACL));
   end;
  finally
   FreeSid(_sid);
  end
 end;
 if GetNamedSecurityInfo(APath, SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, @_old_ACL, nil, _sd) = ERROR_SUCCESS then begin
  try
   ZeroMemory(@_ea, SizeOf(EXPLICIT_ACCESS));
   _ea.grfAccessPermissions := GENERIC_ALL;
   _ea.grfAccessMode := SET_ACCESS;
   _ea.grfInheritance := SUB_CONTAINERS_AND_OBJECTS_INHERIT;
   _ea.Trustee.TrusteeForm := TRUSTEE_IS_NAME;
   _ea.Trustee.TrusteeType := TRUSTEE_IS_USER;
   _ea.Trustee.ptstrName := PChar('User1');
   _new_ACL := nil;
   _err := SetEntriesInAcl(1, @_ea, _old_ACL, _new_ACL);
   if _err = ERROR_SUCCESS then begin
    Result := SetNamedSecurityInfo(APath, SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, _new_ACL, nil) = ERROR_SUCCESS;
    LocalFree(cardinal(_new_ACL));
   end;
  finally
   LocalFree(cardinal(_sd))
  end
 end;
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69: