[vmilyoshin]

Как заставить VertScrollBar формы перемещатся по нажатию стрелок вверх и вниз.
Допустим для колёсика мыши:

Код:

procedure TForm19.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  VertScrollBar.Position:= VertScrollBar.Position + 10;
end;

procedure TForm19.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  VertScrollBar.Position:= VertScrollBar.Position - 10;
end;

А как сделать тоже самое для стрелок? Спасибо.