Delphi Как программно добавить анимацию к TListBoxItem

[Lomanu4]

Удаляет выбранный элемент списка с анимацией

TListBoxItem(TListBox(Sender).Selected).AnimateFloat('Opacity', 0, 0.3);
TListBoxItem(TListBox(Sender).Selected).AnimateFloatWait('Height', 0, 0.3);
TListBox(Sender).Items.Delete(TListBox(Sender).Selected.Index);