RAM auslesen - Fehler??

[hathor]

Delphi-Quellcode:

function gettotalphysmemory: Int64;
var
  memoryEx: TMemoryStatusEx;
begin
  begin
    memoryEx.dwLength := sizeof(TMemoryStatusEx);
    GlobalMemoryStatusEx(memoryEx);
    gettotalphysmemory := memoryEx.ullTotalPhys;
  end;
end;