Grösse in Bytes eines Keys der registry bekommen

[Pseudemys Nelsoni]

hi,

Delphi-Quellcode:

var
  Key: HKEY;
  phkResult: HKEY;
  uType: DWORD;
  uPathSize: DWORD;

begin
  Key := HKEY_LOCAL_MACHINE;
  if RegOpenKeyEx(Key, 'SOFTWARE\Borland\Delphi\7.0', 0, KEY_READ, phkResult) = ERROR_SUCCESS then
  begin
    RegQueryValueEx(Key, 'RootDir', nil, @uType, nil, @uPathSize);
    Showmessage(inttostr(uPathSize));
  end;
end.

showmessage zeigt mir immer 0 an, der key "RootKey" existiert aber...wieso bekomme ich nicht die richtige länge des strings angezeigt?