uses Winapi.Windows;


function CheckAdmin: Boolean;
var
 hnd: THandle;
 TKELV: TOKEN_ELEVATION;
 size: DWORD;
begin
 Result := false;
 if OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, hnd) then begin
   size := SizeOf(TOKEN_ELEVATION);
   if GetTokenInformation(hnd, TokenElevation, @TKELV, sizeof(TKELV), size) then
     Result := Boolean(TKELV.TokenIsElevated);
   if hnd <> 0 then
     CloseHandle(hnd);
 end;
end;