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