Мониторинг оперативной памяти - Delphi XE7

procedure TForm1.Timer1Timer(Sender: TObject);
var mem: TMemoryStatus;
begin
  mem.dwLength:=sizeof(mem);
  globalmemorystatus(mem);
  with mem do
  begin
  sLabel4.Caption:=inttostr(dwmemoryload)+ ' %';
  sLabel6.Caption:=inttostr((dwtotalphys) div 1024)+ ' Кбайт';
  slabel5.Caption:=inttostr((dwavailphys) div 1024)+ ' Кбайт';
  sGauge1.Progress:=dwmemoryload;
  end;
end;
 
end.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Gauges;
type
  PMEMORYSTATUSEX = ^MEMORYSTATUSEX;
  MEMORYSTATUSEX = record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: Int64;
    ullAvailPhys: Int64;
    ullTotalPageFile: Int64;
    ullAvailPageFile: Int64;
    ullTotalVirtual: Int64;
    ullAvailVirtual: Int64;
    ullAvailExtendedVirtual: Int64;
  end;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Gauge1: TGauge;
    procedure FormShow(Sender: TObject);
  private
    procedure GetMemoryInfo;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  function GlobalMemoryStatusEx(lpBuffer: PMEMORYSTATUSEX):
           Boolean; stdcall; external kernel32;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.GetMemoryInfo;
var
  MemInfo: MEMORYSTATUSEX;
begin
  MemInfo.dwLength := SizeOf(MEMORYSTATUSEX) ;
  GlobalMemoryStatusEx(@MemInfo) ;
  Label3.Caption := IntToStr(MemInfo.ullTotalPhys div 1024)+'K';
  Label4.Caption := IntToStr(MemInfo.ullAvailPhys div 1024)+'K';
  Gauge1.Progress := MemInfo.ullAvailPhys div (MemInfo.ullTotalPhys div 100);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
  GetMemoryInfo;
end;
end.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  LMemStat:TMemoryStatusEx;
  a,b:String;
begin
  LMemStat.dwLength:=SizeOf(TMemoryStatusEx);
  if GlobalMemoryStatusEx(LMemStat)=False then
    ShowMessage('Error!')
  else
  with LMemStat do
  begin
    a:= 'Total RAM: '+IntToStr(ullTotalPhys div 1048576);
    b:= 'Available RAM: '+IntToStr(ullAvailPhys div 1048576);
    label1.Caption:=(a);
    label2.Caption:=(b);
end;