[Gnom_aka_Lexander]

может можно покороче и по проще »

Position := число; можно заменить на Position := Position +1;, чтоб строки не считать.
короче точно не порлучится, да и проще тоже. как вариант - забивать все имена распаковываемых файлов в стринглист и потом в цикле от нуля до количества итемов минус один стринглиста, извлекать файлы, беря из стринглиста названия по номеру текущего цикла.
тогда распаковка любого количества файлов займет буквально меньше десятка строчек кода.
но, добавление файлов в стринглист займет все остальное, в итоге проще не станет точно, да и короче не сильно.