Få scrollhjulet på min mus til at virke

Dus skal bruge ScrollBar.Position og WheelDelta f.eks. som dette eksempel:

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
begin
  Form1.ScrollBox1.VertScrollBar.Position :=
    Form1.ScrollBox1.VertScrollBar.Position - (WheelDelta div 4);
end;

@ eht.

Vil du sende et svar, så får du points.

(Beklager det sene svar)

Svar!
Bedre sent end aldrig