Сделал так..
TEdit положил внутри THorzScrollBox. Ширина TEdit больше чем Scroll, что не влезло справа, обрезалось. Спрятал ScrollBar, чтобы не портил вид.
Положил на форму TrackBar c Value от 0 до 150. Для значения Value добавил TFloatAnimaton с изменением Value от 0-150 по циклу и с реверсом.
На событие OnChangeValue TrackBar повесил обработчик в котором, в зависимости от значения Track меняю у HorzscrollBox позицию ползунка ( .ScrollBy (dX,dY) - еле нашел!)
Результат на видео https://youtu.be/crtw-qQmjFc. Проект вечером прикреплю - может кому понадобится.
"мозг" тут :
var
Form1: TForm1;
currPos : integer=0;
implementation
{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.Windows.fmx MSWINDOWS}
procedure TForm1.TrackBar1Change(Sender: TObject);
var
cnt : integer;
cp :integer ;
begin
lbT.Text := TrackBar1.Value.ToString;
cp := Round(TrackBar1.Value) ;
cnt := currPos - cp;
currPos := cp;
HorzScrollBox1.ScrollBy(cnt,0) ;
end;
Test.rar