Ilośc pamięci

jak mozna odczytać ilośc pamięci RAM oraz ile procent z tego jest zajęte, a ile wolne?

<font size="12">//Przypominam o niepisaniu wileu postow obok siebie..pisz swoje pytania w jednym poscie</span>

nie.

var
MS: TMemoryStatus;
User : String;
Buff : DWORD;
begin
GlobalMemoryStatus(MS);

  Label1.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024); // dostępne
  Label2.Caption := Format('%d %%', [MS.dwMemoryLoad]); // używane

end;

...a wolne jest to co zajęte nie jest :)