Zjištění celkové fyzické paměti

K tomuto příkladu snad není třeba zvláštních úvodů. Následující kód prostě zobrazí celkové množství fyzické paměti v systému v kB.
procedure TForm1.Button1Click(Sender: TObject);
var mem:TMemoryStatus;
begin
GlobalMemoryStatus(mem);
ShowMessage(FormatFloat('#,###" kB"', Mem.dwTotalPhys / 1024));
end;
Volná fyzická paměť
A tento příklad pro změnu zobrazí volnou fyzickou paměť.
procedure TForm1.Button1Click(Sender: TObject);
var mem:TMemoryStatus;
begin
GlobalMemoryStatus(mem);
ShowMessage(FormatFloat('#,###" kB"', Mem.dwAvailPhys / 1024));
end;