Ищете код Delphi 7, чтобы определить, запущена ли программа с правами администратора?

Я ищу рабочий ( очевидно ) код Delphi 7 , чтобы я мог проверить, моя программа запускается с правами администратора .

Заранее спасибо

[--- ВАЖНОЕ ОБНОВЛЕНИЕ ---]

Изучив код в ответах на данный момент, я понимаю, что мой вопрос, возможно, не так ясен или, по крайней мере, не полон:

• Я хочу знать , запускается ли моя программа Delphi 7 с установленным флажком «Запуск от имени администратора» .

• Другими словами: Я хочу знать, может ли моя программа Delphi 7 создавать / обновлять файлы в папках c: \ Program Files ... .

Просто для этого недостаточно проверить наличие прав администратора.