Как получить весь размер системной памяти

function GetMemoryTotalPhys : DWord;
var
  memStatus: TMemoryStatus;
begin
     memStatus.dwLength := sizeOf ( memStatus );
     GlobalMemoryStatus ( memStatus );
     Result := memStatus.dwTotalPhys;
end;