Анимация добавления строки в ListBox в FireMonkey

Следующий код прекрасно анимирует добавление новой строки в конец ListBox

procedure TForm6.AddItem(s: string);
var
  l : TListBoxItem;
  OldHeight : Single;
begin
  l := TListBoxItem.Create(Self);
  l.Text := s;
  OldHeight := l.Height;
  l.Height := 0;
  l.Parent := ListBox1;
  l.Opacity := 0;
  l.AnimateFloat('height', OldHeight, 0.5);
  l.AnimateFloat('Opacity', 1, 0.5);
end;

Элемент расширяется и исчезает. Однако я хочу иметь возможность добавлять строку в произвольное место в ListBox - фактически на текущий ItemIndex. Кто-нибудь знает, как это сделать?