Global Memory Information

procedure TForm1.Button1Click(Sender: TObject);
var MemoryStatus: TMemoryStatus;
begin
  Memo1.Lines.Clear;
  MemoryStatus.dwLength := SizeOf(MemoryStatus) ;
  GlobalMemoryStatus(MemoryStatus) ;
  with MemoryStatus do begin
    Memo1.Lines.Add(IntToStr(dwLength) + 
    				' Size of MemoryStatus record') ;
    Memo1.Lines.Add(IntToStr(dwMemoryLoad) + 
    				' % memory in usage') ;
    Memo1.Lines.Add(IntToStr(dwTotalPhys) + 
    				' Total Physical Memory in bytes') ;
    Memo1.Lines.Add(IntToStr(dwAvailPhys) + 
    				' Available Physical Memory in bytes') ;
    Memo1.Lines.Add(IntToStr(dwTotalPageFile) + 
    				' Total Bytes of Paging File') ;
    Memo1.Lines.Add(IntToStr(dwAvailPageFile) + 
    				' Available bytes in paging file') ;
    Memo1.Lines.Add(IntToStr(dwTotalVirtual) + 
    				' User Bytes of Address space') ;
    Memo1.Lines.Add(IntToStr(dwAvailVirtual) + 
    				' Available User bytes of address space') ;
   end;
end;