// В настройках проекта нужно выставить разрешения:
// Uses Permissions
//   • Read phone state

uses
  Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes, Androidapi.Helpers,
  Androidapi.JNI.GraphicsContentViewText, Androidapi.JNIBridge;

function GetIMEI: string;
var
  TelephonyObj: JObject;
  TelephonyManager: JTelephonyManager;
begin
  Result := '';
  TelephonyObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
  if Assigned(TelephonyObj) then
  begin
    TelephonyManager := TJTelephonyManager.Wrap((TelephonyObj as ILocalObject).GetObjectID);
    if Assigned(TelephonyManager) then
      Result := JStringToString(TelephonyManager.getDeviceId);
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  MessageDlg(GetIMEI);
end;

uses
  FMX.Platform;

procedure TForm1.Button1Click(Sender: TObject);
var
  Service: IFMXDeviceService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXDeviceService, Service) then
    ShowMessage(Service.GetModel);
end;

uses
  FMX.Platform;

procedure TForm1.Button1Click(Sender: TObject);
var
  Service: IFMXDeviceService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXDeviceService, Service) and
    (TDeviceFeature.HasTouchScreen in Service.GetFeatures) then
    ShowMessage('Устройство имеет TouchScreen')
  else
    ShowMessage('Устройство не имеет TouchScreen');
end;