Свой скролл для ListBox

[flug]

Пытаюсь сделать прокрутку ListBox при помощи trackbar и ScrollBar таким вот образом:

procedure TForm1.FormCreate(Sender: TObject);
 var
  i:integer;
begin
 for i:=0 to 200 do
  begin
   listbox1.Items.Add(inttostr(i));
  end;
 trackbar1.Max:=listbox1.Count-1;
 ScrollBar1.Max:=listbox1.Count-1;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
Var
  ScrollMessage:TWMVScroll;
begin
    ScrollMessage.Msg:=WM_VScroll;
    ScrollMessage.Pos:=trackbar1.Position;
    ListBox1.Dispatch(ScrollMessage);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
Var
  ScrollMessage:TWMVScroll;
begin
    ScrollMessage.Msg:=WM_VScroll;
    ScrollMessage.Pos:=ScrollBar1.Position;
    ListBox1.Dispatch(ScrollMessage);
end;

И вот с trackbar прокрутка работает, а со ScrollBar не работает хоть ты тресни. Подскажите в чём причина, да и вообще может есть другой способ для осуществления прокрутки. listbox1.ItemIndex:=TrackBar1.Posit ion очень плохой способ.