Obtener información sobre las memorias.

Doy por supuesto que existe un StringGrid donde voy depositando los datos.


procedure TForm1.Button1Click(Sender: TObject);
var
  Memoria:TMemoryStatus;
  Evalor:Extended;
begin
// Datos de memoria
  Memoria.dwLength:=SizeOf(Memoria);
  GlobalMemoryStatus(Memoria);
  StringGrid1.Cells[0,1]:='Datos sobre Memorias';
// Obtención del porcentaje del estado de la memoria
  StringGrid1.Cells[0,2]:='Estado de la memoria en uso';
  EValor:=Memoria.dwMemoryLoad;
  StringGrid1.Cells[1,2]:=Format('%10n',[EValor]);
// Cantidad total de RAM
  StringGrid1.Cells[0,3]:='Total de Memoria';
  EValor:=Memoria.dwTotalPhys;
  StringGrid1.Cells[1,3]:=Format('%10n',[EValor]);
// Cantidad total de RAM disponible
  StringGrid1.Cells[0,4]:='Total de Memoria';
  EValor:=Memoria.dwAvailPhys;
  StringGrid1.Cells[1,4]:=Format('%10n',[EValor]);
End;