Как скопировать несколько рекурсивно найденых одинаковых файлов из ListBox в определенную директорию

[indexx]

он ругается

Не ругается, а указывает на ошибки. Текст ошибки читать пробовал? Говорят помогает.

подсказать где искать

Приблизительно в нижней части экрана.

мне больше не приятно здесь находится

Ну дык и решай сам свою задачу.

[Stilet]

вместо того чтоб подсказать где искать вы позволяете оскорбительные выражения в мой адрес.

Вместо того чтоб кидать код, который совершенно непонятно как работает лучше бы текст ошибки с кодом давал или еще лучше скриншот. Или ты думаешь что в мире программирования на все ошибки будет один единственный текст? Ошибок может быть миллиарды, и ты хочешь чтоб мы угадывали? Не понятно тогда что тебе не нравится. Народ веселится от угадаймелодии - ты сам виноват.
Сколько раз я тут повторял: Текст ошибки приводите, господа начинающие. Толку? Школотное состояние не позволяет слушать семпая.

Вот опять:

он ругается на file_name:=PChar(ListBox1.items[i])

Дай угадаю: "Синтаксическая ошибка. Неверный символ Р с кодом $F8. Используйте символ Р вместо него."

[min@y™]

но вместо того чтоб подсказать где искать

Ты мои скриншоты не видишь?

[Foreseen]

Ну чего накинулись на человека, тут моя вина есть, по невнимательности допустил в коде ошибку и выложил ему.