[AlexBoost]

1. Расставляешь на форме компоненты CheckBox1, ScrollBar1, ScrollBar2 и Edit1.

2. В обработчик события OnClick компонента CheckBox1 пишешь

Код:

Edit1.ReadOnly:=CheckBox1.Checked; 

3. В обработчик события OnChange компонента ScrollBar2 пишешь

Код:

ScrollBar1.Position:=ScrollBar2.Position;
Edit1.Text:=IntToStr(ScrollBar1.Position);

4. В обработчик события OnChange компонента ScrollBar1 пишешь

Код:

ScrollBar2.Position:=ScrollBar1.Position;
Edit1.Text:=IntToStr(ScrollBar2.Position);

5. В обработчик события OnKeyPress компонента Edit1 пишешь

Код:

If Not (key in ['0'..'9',#8]) Then key:=#13;

6. В обработчик события OnChange компонента Edit1 пишешь

Код:

If Edit1.Text <> '' Then
  Begin
    ScrollBar1.Position:=StrToInt(Edit1.Text);
    ScrollBar2.Position:=ScrollBar1.Position;
  End;

В пункте 2 мы по щелчку на ComboBox запрещаем или разрешаем вписывать руками текст.
В пунктах 3 и 4 мы устанавливаем значение позиции ScrollBarов одинаковыми и записываем это значение в Edit1.
В пункте 5 мы разрешаем вводить в компонент Edit только цифры.
В пункте 6 мы изменяем значение позиции ScrollBarов на то, что написано в Edit1 и перед этим проверяем, чтоб там не было пустого значения.