ScrollBy

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод визуальных компонентов ScrollBy";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=
" Нажимайте кнопки для сдвига содержимого панели";

// Кнопки
for (i=3,x=frm.ClientWidth;i>=0;i--) {
  btn=new TButton(frm);
  switch (i) {
    case 0: btn.strTag="L"; btn.Caption="Влево"; break;
    case 1: btn.strTag="U"; btn.Caption="Вверх"; break;
    case 2: btn.strTag="D"; btn.Caption="Вниз"; break;
    case 3: btn.strTag="R"; btn.Caption="Вправо";
  }
  btn.Left=(x-=btn.Width+15);
  btn.Top =stb.Top-btn.Height-15;
  btn.OnClick=btn_Click;
}

// Панель
pnl=new TPanel(frm);
pnl.Caption="Панель";
pnl.BorderStyle=bsSingle;
pnl.Left=pnl.Top=15;
pnl.Width =frm.ClientWidth-pnl.Left*2;
pnl.Height=btn.Top-pnl.Top*2;

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var dx=0,dy=0;

  switch (btn.strTag) {
    case "L": dx=-10; break;
    case "U": dy=-10; break;
    case "R": dx= 10; break;
    case "D": dy= 10;
  }

  pnl.ScrollBy(dx,dy);
}