안녕하세요.
스크롤이라함은 마우스 휠 움직임을 말씀하시는듯하네요..

그냥 간단하게 만들어봤습니다.. 작동여부는 흐흐 안돌려봐서리.. 데이터 넣기가 좀 그래서 암튼 참고하세요..
팁란이나 묻고 답하기에 많이 있습니다..좀더 나은부분은 그쪽을 참고하세요..
그럼 즐프하세요...
<!--CodeS-->
type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    procedure FormCreate(Sender: TObject);
  private
    procedure MOUSEWHEELMessage(var Msg: TMsg; var Handled: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MOUSEWHEELMessage;
end;

procedure TForm1.MOUSEWHEELMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.Message = WM_MOUSEWHEEL then
  begin
     if ActiveControl = TControl(ScrollBox1) then
     begin
       if Msg.wParam > 0 then
       begin
         keybd_event(VK_UP, VK_UP, 0, 0);
         keybd_event(VK_UP, VK_UP, KEYEVENTF_KEYUP, 0);
       end
       else if Msg.wParam < 0 then
       begin
         keybd_event(VK_DOWN, VK_DOWN, 0, 0);
         keybd_event(VK_DOWN, VK_DOWN, KEYEVENTF_KEYUP, 0);
       end;
       ActiveControl.Invalidate;
     end;
  end;
end;

<!--CodeE-->

휠 마우스로 움직이는거 맞는데요.
이거 해보니 안 되더라고요..