[Yurk@]

Сообщение от Winny

Ты не правильно понял его. ...

Да все Rokuell верно понял:

Код:

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
Form1.ScrollBy(0,-10);
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
Form1.ScrollBy(0,10);
end;