[timeless]

Код:

ListBox2.TopIndex:=ListBox1.TopIndex;

У листбокса нет события OnScroll, поэтому это можно запихнуть например в таймер или ловить сообщение WM_VSCROLL как здесь: http://www.delphipages.com/forum/showthread.php?t=41035