[aqula]

Пробую так

Код:

procedure TForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  with ScrollBox1 do
  if  ((VertScrollBar.Position <= 4) OR
     (VertScrollBar.Position = VertScrollBar.Range - ClientHeight))
  then
    ShowMessage(Inttostr(VertScrollBar.Position));
end;

Интересно, что на других страницах pagecontrol выдает 0, а на той где есть скролбокс молчит.