گرفتن اطلاعات سیستم - اطلاعاتی در رابطه با حافظه

procedure TForm1.Button1Click(Sender: T);
var
   MemoryStatus: TMemoryStatus;

begin

   Memo1.Lines.Clear;

   MemoryStatus.dwLength := SizeOf(MemoryStatus);

   GlobalMemoryStatus(MemoryStatus);

   with MemoryStatus do
   begin
     { Size of MemoryStatus record }
     Memo1.Lines.Add(IntToStr(dwLength) +
       " Size of ""MemoryStatus"" record");
     { Per-Cent of Memory in use by your system }
     Memo1.Lines.Add(IntToStr(dwMemoryLoad) +
       "% memory in use");
     {The amount of Total Physical memory allocated to your system.}
     Memo1.Lines.Add(IntToStr(dwTotalPhys) +
       " Total Physical Memory in bytes");
     { The amount available of physical memory in your system. }
     Memo1.Lines.Add(IntToStr(dwAvailPhys) +
       " Available Physical Memory in bytes");
     { The amount of Total Bytes allocated to your page file }
     Memo1.Lines.Add(IntToStr(dwTotalPageFile) +
       " Total Bytes of Paging File");
     { The amount of available bytes in your page file }
     Memo1.Lines.Add(IntToStr(dwAvailPageFile) +
       " Available bytes in paging file");
     { The amount of Total bytes allocated to this program
        (generally 2 gigabytes of virtual space) }
     Memo1.Lines.Add(IntToStr(dwTotalVirtual) +
       " User Bytes of Address space");
     { The amount of avalable bytes that is left to your program to use }
     Memo1.Lines.Add(IntToStr(dwAvailVirtual) +
       " Available User bytes of address space");
   end;
end

Speed test