多春鱼小屋

利用IFMXApplicationService接口，访问AppVersion即可取得应用的版本号。
代码如下，Win32,Android测试通过。

function GetAppVersion: String;
var
  ApplicationService: IFMXApplicationService;
begin
  result := '';

  if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationService,
    ApplicationService) then
  begin

      result := ApplicationService.AppVersion;

  end;
end;

原贴：http://blog.sina.com.cn/s/blog_44fa172f0102vhox.html