Android Multi-touch

[PTyTb32]

Привет, работаю с XE 10 столкнулся с такой проблемой: не могу управлять двумя компонентами сразу, сперва думал что поддержка мульти тача просто отключена, но нет, форма распазнает хоть все 10 пальцев, а компоненты (ArcDial и TrackBar) не хотят работать одновременно, подскажите как их переубедить?

P.S. нашел способ создать свои компоненты, неужели это единственный способ?

P.S. способ который помог в моем случае, работает он по такой логике:
на форме лайаут, на нем линия пунктиром или точкой тиире как кому нравится, там же ползунок в (прямоугольник с закругленными углами) и к нему еще эффект тени, дальше в форм маус даун и форм маус мув передаем все в он тач, в котором обрабатываем движения мыши, обращаясь к компонентам по типу и чаилдом, это позволяет делать хоть 10 таких трек баров и управлять можно каждым из них отдельным пальцем, позже выложу код этих процедур

P.S. а вот и код

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
var
  t: TTouches;
begin
  if ssLeft in Shift then
  begin
    SetLength(t, 1);
    t[0].Location := PointF(X, Y);
    FormTouch(nil, t, TTouchAction.Down);
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
var
  t: TTouches;
begin
  if ssLeft in Shift then
  begin
    SetLength(t, 1);
    t[0].Location := PointF(X, Y);
    FormTouch(nil, t, TTouchAction.Move);
  end;
end;

procedure TForm1.FormTouch(Sender: TObject; const Touches: TTouches;
  const Action: TTouchAction);
var
  t: TTouch;
  f: TFmxObject;
  m: trectf;
  l: TLine;
  r: TRoundRect;
  p: tpointf;
  i, i1: Integer;
begin
  for t in Touches do
  begin
    case Action of
      // TTouchAction.None: ;
      TTouchAction.Up:
        begin
          if not CheckBox2.IsChecked then
          begin
            for f in children do
              if f is TLayout then
              begin
                m := TLayout(f).AbsoluteRect;
                m.Inflate(0, -10);
                if m.Contains(t.Location) then
                begin
                  l := TLine(TLayout(f).children[0]);
                  r := TRoundRect(l.children[0]);
                  p := TLayout(f).AbsoluteToLocal(t.Location);
                  if r.Name = 'RoundRect1' then
                  begin
                    p.X := r.Position.X;
                    p.Y := 80;
                  end;
                  if r.Name = 'RoundRect2' then
                  begin
                    p.X := 80;
                    p.Y := r.Position.Y;
                  end;
                  r.Position.Point := p;
                  if r.Name = 'RoundRect1' then
                  begin
                    i := strtoint(format('%3.0f', [p.Y]));
                    i1 := map(i, -5, 165, 100, -100);
                  end;
                  if r.Name = 'RoundRect2' then
                  begin
                    i := strtoint(format('%3.0f', [p.X]));
                    i1 := map(i, -15, 175, 100, -100);
                  end;
                  TText(l.children[1]).Text := inttostr(i1) + '%';
                  SendData;
                end;
              end;
          end;
       end;
      TTouchAction.Down, TTouchAction.Move:
        for f in children do
          if f is TLayout then
          begin
            m := TLayout(f).AbsoluteRect;
            m.Inflate(0, -10);
            if m.Contains(t.Location) then
            begin
              l := TLine(TLayout(f).children[0]);
              r := TRoundRect(l.children[0]);
              p := TLayout(f).AbsoluteToLocal(t.Location);
              if r.Name = 'RoundRect1' then
              begin
                p.X := r.Position.X;
                p.Y := p.Y - 5 - r.Height * 0.5;
              end;
              if r.Name = 'RoundRect2' then
              begin
                p.Y := r.Position.Y;
                p.X := p.X - 5 - r.Width * 0.5;
              end;
              r.Position.Point := p;
              if r.Name = 'RoundRect1' then
              begin
                i := strtoint(format('%3.0f', [p.Y]));
                i1 := map(i, -5, 165, 100, -100);
              end;
              if r.Name = 'RoundRect2' then
              begin
                i := strtoint(format('%3.0f', [p.X]));
                i1 := map(i, -15, 175, 100, -100);
              end;
              TText(l.children[1]).Text := inttostr(i1) + '%';
              SendData;
            end;
          end;
      // TTouchAction.Cancel: ;
    end;
  end;
end;