Программирование Delphi

Есть простой способ, чтобы выбирать пункты ListBox, когда указатель мыши проходит над ними.

Нужно просто назначить следующий код в обработчик события OnMouseMove для компонента ListBox (ListBox1):

procedure TForm1.ListBox1MouseMove
   (Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
begin
   ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True) ;
end;