implementation

    function IsUserAnAdmin: BOOL; stdcall; external 'Shell32.dll' index 680;

{$R *.dfm}

<< 使用例 >>
procedure TForm1.Button1Click(Sender: TObject);
begin
    if IsUserAnAdmin() then ShowMessage('管理者です');
end;