Оставил так: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;