Le9ent, убрать это условие. Т.к. в стандартной версии Inno Setup нет TVStyle у компонентЛиста.
Оставил так:
Код:
begin
while ((f + diff + 1 < box.Items.Count)) and (box.ItemLevel[f + diff + 1] > box.ItemLevel[n]) do
diff:= diff + 1;
end;
Звука нет, полностью убрал эту часть тоже ничего не воспроизводится.