// bir adet listbox
// alanları doldurun
// mouse listbox içinde hareket ettirin up ve down tuşları gibi çalışıyor..
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True);
end;