SpinBox, запретить ввод с клавиатуры

[Letter]

У компонента SpinBox  на андроиде нужно что бы цифры вводились стрелками, а с клавиатуры вводить нельзя. Подскажите как реализовать?

[Slym]

не проверял...

type
  TSpinBoxAccess=class(TSpinBox);
procedure TForm1.FormCreate(Sender: TObject);
begin
  TSpinBoxAccess(SpinBox1).Model.InputSupport:=false;
end;