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

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

Взято из https://forum.sources.ru