Работа с оперативной памятью

Вывести процент загруженности памяти –  GlobalMemoryStatus(mem);  ShowMessage(IntToStr(mem.dwMemoryLoad) + ‘ %’); // var mem: TMemoryStatus;
Вывести размер физической памяти – GlobalMemoryStatus(mem);  ShowMessage(IntToStr((mem.dwTotalPhys) div 1024) + ‘ Кбайт’); // var mem: TMemoryStatus;
Вывести размер свободной физической памяти – GlobalMemoryStatus(mem);  ShowMessage(IntToStr((mem.dwAvailPhys) div 1024) + ‘ Кбайт’); // var mem: TMemoryStatus;
Вывести размер страничной памяти – GlobalMemoryStatus(mem);  ShowMessage(IntToStr((dwTotalPageFile) div 1024) + ‘Кбайт’); // var mem: TMemoryStatus;
Вывести размер свободной страничной памяти – GlobalMemoryStatus(mem);  ShowMessage(IntToStr((dwAvailPageFile) div 1024) + ‘Кбайт’); // var mem: TMemoryStatus;
Вывести размер swap памяти – GlobalMemoryStatus(mem);  ShowMessage(IntToStr((dwTotalVirtual) div 1024) + ‘Кбайт’); // var mem: TMemoryStatus;
Вывести размер свободной swap памяти – GlobalMemoryStatus(mem);  ShowMessage(IntToStr((dwAvailVirtual) div 1024) + ‘Кбайт’); // var mem: TMemoryStatus;