再ｼﾂﾓｰﾝ
Win2Kで時刻設定したいんだけど、特権が取得できません

//ＮＴで特権取得を行う
function GetPrivilege(szPrivilegeName: string): boolean;
var
TokenPriv : TTokenPrivileges;
TokenHandle : THandle;
Rleng : DWORD;
LOSVer : TOSVersionInfoA;
begin
//バージョンを取得する
LOSVer.dwOSVersionInfoSize:=SizeOf(LOsVer);
GetVersionEx(LOSVer);
Result := True;
//Windows 9x と NT を識別します
if LOSVer.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
Exit;

Result:=False;

if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,TokenHandle) then
if LookupPrivilegeValue('', PChar(szPrivilegeName),TokenPriv.Privileges[0].LUID) then
begin
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
Result := AdjustTokenPrivileges(TokenHandle, False, TokenPriv,
sizeof(TTokenPrivileges), TokenPriv, Rleng);
end;
end;

使い方はGetPrivilege('SeSystemtimePrivilege')ですが、
AdjustTokenPrivilegesがFalse返します
どうすれば良いのでしょう？