这是一种方法：

uses
  Macapi.Helpers,
  iOSapi.Foundation;    

function GetAppVersion: string;
var
  LValueObject: Pointer;
begin
  Result := '';
  LValueObject := TNSBundle.Wrap(TNSBundle.OCClass.mainBundle).infoDictionary.objectForKey(StringToID('CFBundleVersion'));
  if LValueObject <> nil then
    Result := NSStrToStr(TNSString.Wrap(LValueObject));
end;

请注意，在某些情况下，您可能希望检索CFBundleShortVersionString而不是CFBundleVersion的值。