delphi - Process32FirstW が ERROR_BAD_LENGTH を返す

Question

使いたいのですが、電話するProcess32FirstWと取得します。を使用するとうまくいくようですが、ここで何が間違っているのか知りたいです:ERROR_BAD_LENGTHGetLastErrortlhelp32

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows;

type
  PROCESSENTRY32W = record
    dwSize: Cardinal;
    cntUsage: Cardinal;
    th32ProcessID: Cardinal;       // this process
    th32DefaultHeapID: Pointer;
    th32ModuleID: Cardinal;        // associated exe
    cntThreads: Cardinal;
    th32ParentProcessID: Cardinal; // this process's parent process
    pcPriClassBase: Longint;    // Base priority of process's threads
    dwFlags: Cardinal;
    szExeFile: array[0..MAX_PATH - 1] of WideChar;// Path
  end;

function Process32NextW           (hSnapshot: Cardinal; var lppe: PROCESSENTRY32W): LongBool; external 'kernel32';
function Process32FirstW          (hSnapshot: Cardinal; var lppe: PROCESSENTRY32W): LongBool; external 'kernel32';
function CreateToolhelp32Snapshot (dwFlags, th32ProcessID: Cardinal): Cardinal; external 'kernel32';

function GetParentPID : Cardinal;
var
  HandleSnapShot    : Cardinal;
  EntryParentProc   : PROCESSENTRY32W;
  CurrentProcessId  : Cardinal;
begin
  result          := 0;
  HandleSnapShot  := CreateToolhelp32Snapshot($00000002, 0);
  if HandleSnapShot <> Cardinal(-1) then begin
    EntryParentProc.dwSize := SizeOf(PROCESSENTRY32W);
    if Process32FirstW(HandleSnapShot, EntryParentProc) then begin
      CurrentProcessId := GetCurrentProcessId;
      repeat
        if EntryParentProc.th32ProcessID = CurrentProcessId then begin
          result := EntryParentProc.th32ParentProcessID;
          break;
        end;
      until not Process32NextW(HandleSnapShot, EntryParentProc);
    end else begin
      writeln(GetLastError);
    end;
    CloseHandle(HandleSnapShot);
  end;
end;

begin
  writeln (GetParentPID);
  readln;
end.