[aqula]

Как отследить что установлено самое верхнее положение в скроллбоксе?
Пробую так но ничего не показывает. ((

Код:

procedure TForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if (Sender is TScrollBox) then
    showmessage(Inttostr(Scrollbox1.VertScrollBar.Position));
end;