RAM auslesen - Fehler??

[Madara Uchiha]

Hallo,

Ich lese hiermit mein RAM aus:

Delphi-Quellcode:

function GetTotalPhysMemory: string;
  var
    MemoryInfo: TMemoryStatus;
    Buf: Array [0 .. 255] Of Char;
  begin
    MemoryInfo.dwLength := SizeOf(MemoryInfo);
    GlobalMemoryStatus(MemoryInfo);
    StrFormatByteSizeW(MemoryInfo.dwTotalPhys, Buf, Length(Buf));
    Result := StrPas(Buf);
  end;

Allerdings zeigt es mir 3,99GB und ich hab 6GB?