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

Code:

uses

Windows;

function TMyApp.GlobalMemoryStatus(Index: Integer): Integer;

var

MemoryStatus: TMemoryStatus

begin

with MemoryStatus do

begin

   dwLength := SizeOf(TMemoryStatus);

   Windows.GlobalMemoryStatus(MemoryStatus);

   case Index of

     1: Result := dwMemoryLoad;

     2: Result := dwTotalPhys div 1024;

     3: Result := dwAvailPhys div 1024;

     4: Result := dwTotalPageFile div 1024;

     5: Result := dwAvailPageFile div 1024;

     6: Result := dwTotalVirtual div 1024;

     7: Result := dwAvailVirtual div 1024;

   else

     Result := 0;

   end;

end;

end;