cet exmple vous donne l'état de votre memoire vive


 var Mem :TMemoryStatus;
  begin
    Mem.dwLength := SizeOf(Mem);
    GlobalMemoryStatus(Mem);
    Gauge1.MaxValue := Mem.dwTotalPhys;
    Gauge1.Progress := Mem.dwTotalPhys - Mem.dwAvailPhys;
  end;