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

[crayzi_skript]

не выходит. подключаю к проекту и ошибка

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
file_name, new_file_name: PWideChar;
 begin
for i:=0 to ListBox1.items do
Begin
file_name:=PChar(ListBox1.items[i]);
new_file_name:=PChar('C:/1_'+inttostr(i)+'.txt');
copyFile(file_name, new_file_name, true);
End;

Inteher and String (целые числа и строковый тип данных)
знаю что туплю но где?

вся надежда на вас)

[min@y™]

[crayzi_skript]

все равно ругается так же на ту же строку
for i:=0 to ListBox1.items do

[Stilet]

А подумать?

for i:=0 to ListBox1.items.Count-1 do

[Аватар]

for i:=0 to ListBox1.items do

А подумать? Какой тип у Items? С чего оно цифровым стало? В хелп заглянуть наконец

А подумать?

не думается))

[min@y™]

все равно ругается так же на ту же строку
for i:=0 to ListBox1.items do

Ну ты ж и просил указать, где тупишь, я и указал.

знаю что туплю но где?

[crayzi_skript]

i это номер строки в листбоксе - он числовой. или я все перепутал?
вот оно и ругается что i - это число а остольное строка

[crayzi_skript]

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

[min@y™]

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

Мнение земляка с Донбасса, гляжу, ты вообще проигнорил. А он тебе правильно написал.

[crayzi_skript]

при этом for i:=0 to ListBox1.items.Count-1 do он ругается на file_name:=PChar(ListBox1.items[i]); но уже дело не в этом.
я в программировании только можно сказать начинаю, хоть и зарегистрирован давно, но вместо того чтоб подсказать где искать вы позволяете оскорбительные выражения в мой адрес. мне больше не приятно здесь находится