прокрутка в tScrollBox

[Altera]

Доброго времени суток всем!
Как мне организовать прокрутку в tScrollBox колёсиком мыши?
Наверное это надо устраивать сообщениями? Только я не знаю, какие...
Помогите plz...

[Altera]

А вот, разобрался:

procedure TEXE_FORM1.ScrollBoxMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
   with scrollBox.VertScrollBar do
   Position := Position - Increment;
end;

Теперь другой вопрос: Как мне сделать так, что-бы содержимое tScrollBox-а прокручивалось вместе с tScrollBar-ом, а не в конце прокрутки?