Как программно проверить что устройство имеет touchscrren?

[andrew4010]

Как программно проверить что устройство имеет touchscrren

[Brovin Yaroslav]

uses
  FMX.Platform;

var
  Service: IFMXDeviceService;
begin
  Result := TPlatformServices.Current.SupportsPlatformService(IFMXDeviceService, Service) and (TDeviceFeature.HasTouchScreen in Service.GetFeatures);