Ребя, сам разобрался. Спасибо всем переживающим ?
Перенес апдейт листбокса туда, где он должен быть.
Теперь кусочек стал выглядеть вот так:
TThread.Synchronize(nil,
procedure ()
begin
lbTare.BeginUpdate;
UpdateTareBalanceItems;
Label7.Text := 'Обновлено';
lclCloseAnimationT;
lbTare.EndUpdate;
end);
Теперь работает вот так: https://www.youtube.com/watch?v=XABighMePBo
Если есть замечания по коду - поделитесь...