Delphi XE8 оценивает первый запуск приложения для Android

[Lomanu4]

function AndroidFirstStarBool:Boolean;
var
  PackageInfo:JPackageInfo;
  currentVersion,lastVersion:Integer;
begin
  PackageInfo:=SharedActivityContext.getPackageManager.getPackageInfo(SharedActivityContext.getPackageName, 0);
  currentVersion:=PackageInfo.versionCode;
  lastVersion:=SharedPrivatePreferences.getInt(StringToJString('VERSION_KEY'), 0);
  if currentVersion>lastVersion then
  begin
 // Первый запуск
    SharedPrivatePreferences.edit.putInt(StringToJString('VERSION_KEY'),currentVersion);
    Result:=True;
  end
  else
  begin
     // Не в первый раз
    Result:=False;
  end;
end;