Scroll listbox'a (scrollowanie kilka listboxów na raz)

Witam jak zrobić żeby scrollować kilka listboxów (pionowo) na raz.

Próbowałem coś takiego:

if ListBox1.Perform(WM_VSCROLL,1, 0) then    ListBox2.Perform(WM_VSCROLL,1, 0);

ale lipa

proszę o odpowiedź

http://groups.google.com/group/borland.public.delphi.vcl.components.using/browse_thread/thread/d424439634d9453b

ROZWIĄZANY.
Odpowiedź jest BANALNIE prosta:

listbox2.TopIndex := listbox1.TopIndex;

Dziękuję i pozdrawiam ;)