function CreateGlobalEvent: THandle;
var
  pSD: PSECURITY_DESCRIPTOR;
  sa: SECURITY_ATTRIBUTES;
begin
  Result := 0;
  pSD := PSECURITY_DESCRIPTOR( LocalAlloc( LPTR, SECURITY_DESCRIPTOR_MIN_LENGTH ) );
  if not Assigned( pSD ) then
    Exit;

  try
    if not InitializeSecurityDescriptor( pSD, SECURITY_DESCRIPTOR_REVISION ) then
      Exit;

    if not SetSecurityDescriptorDacl( pSD, TRUE, PACL( nil ), FALSE ) then
      Exit;

    sa.nLength := sizeof( sa );
    sa.lpSecurityDescriptor := pSD;
    sa.bInheritHandle := TRUE;

    Result := CreateEvent( @sa, True, True, 'Global\MyGlobalEventName' );
  finally
    LocalFree( HLOCAL( pSD ) );
  end;
end;