проверка на права администратора WIN7

[__@cmd@__]

встала задача чтобы перед запуском приложение проверяло запущено ли оно от имени администратора
нашел код

function isAdmin: Boolean;
{ Объявление констант, которых в delphi я не нашел }
const
  SECURITY_BUILTIN_DOMAIN_RID = $00000020;
  DOMAIN_ALIAS_RID_ADMINS = $00000220;

var
  hProcess, hAccessToken: Cardinal;
  InfoBuffer: array [0..1023] of Char;
  ptgGroups: PTokenGroups;
  dwInfoBufferSize: DWORD;
  psidAdmins: PSID;
  siaNtAuthority: TSidIdentifierAuthority;
  x: UINT;
begin
  { Получаем Token нашего приложения }
  hProcess := GetCurrentProcess();
  {
    Обнуляем память и заносим в последний элемент 5.
    Это нужно для того что бы "формат" данных выглядел так [0, 0, 0, 0, 0, 5]
    тупым присваиванием не прокатило.
    Откуда я это знаю? Подсмотрел в VC, как и те две константы, что объявлены
    в начале:)
  }
  ZeroMemory(@siaNtAuthority.Value, sizeof(Char)*6);
  siaNtAuthority.Value[5] := 5;
  { даем указатель ptgGroups на InfoBuffer }
  ptgGroups := PTokenGroups(@InfoBuffer);

  { Попытка открыть процесс и получить инфу о нем }
  if not OpenProcessToken(hProcess, TOKEN_READ, hAccessToken) then
  begin
    Result := false;
    Exit;
  end;

  { Пытаемся получить информаци о првах доступа, одновременно заполная все что
    нужно }
  if not (getTokenInformation(hAccessToken, TokenGroups, @InfoBuffer,
    High(InfoBuffer) + 1, dwInfoBufferSize)) then
  begin
    Result := false;
    Exit;
  end;

  { Распределяем и инициализируем идентификатор безопасности (SID) с восьмью
    полномочиями }
  AllocateAndInitializeSid(siaNtAuthority, 2, SECURITY_BUILTIN_DOMAIN_RID,
    DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, psidAdmins);

  { Тут вроде происходит собственно проверка на то, является ли процесс запущенный
    с правами админа }
  for x := 0 to ptgGroups.GroupCount - 1 do
    if EqualSid(psidAdmins, ptgGroups.Groups[x].Sid) then
    begin
      FreeSid(psidAdmins);
      Result := true;
      Exit;
    end;

  FreeSid(psidAdmins);
  Result := false;
end;

из статьи http://pblog.ru/?p=688
но на вин 7 он не работает пишет что всегда не прав
больше ничего дельного не нашел кто может подсказать?

зараннее благодарен