Получение статуса памяти

var
  mi:JActivityManager_MemoryInfo;
  am:JActivityManager;
  ah:TAndroidHelper;
begin
   ah:=TAndroidHelper.Create;
   am:=ah.Activity.getSystemService(StringToJString('ACTIVITY_SERVICE')) as JActivityManager;
 
    mi:=TJActivityManager_MemoryInfo.Create;
    am.getMemoryInfo(mi);
    ShowMessage('FreeMem/AllMem: '+mi.availMem.ToString()+'/'+mi.totalMem.ToString());
 
end;

function GetActivityManager: JActivityManager;
var
  ActivityManagerNative: JObject;
begin
  ActivityManagerNative := SharedActivityContext.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE);
  if not Assigned(ActivityManagerNative) then
    raise Exception.Create('Could not locate Activity Service');
  Result := TJActivityManager.Wrap(
    (ActivityManagerNative as ILocalObject).GetObjectID);
  if not Assigned(Result) then
    raise Exception.Create('Could not access Activity Manager');
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
   am:= GetActivityManager;
   mi:=TJActivityManager_MemoryInfo.Create;
end;
 
procedure TMainForm.Timer1Timer(Sender: TObject);
 
begin
    am.getMemoryInfo(mi);
    lFreeMem.Text:='Free Memory: '+(mi.availMem div 1048576).ToString()+'Mb';
    LAllMem.Text:='All Memory: '+(mi.totalMem div 1048576).ToString()+'Mb';
end;