Скопировать файлы

[мимо]

Здравствуйте. Есть Listq : TStringList; где находится список файлов в виде
'D:\Program Files\Acro\Writer\README.HTM'
и необходимо эти файлы скопировать в другой каталог. Подскажите как такое возможно осуществить? При этом необходимо автоматически переименовывать имена одинаковых файлов.
Нашел

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_RENAMEONCOLLISION;
result:=ShFileOperation(F) = 0;
end;

но как тут использовать TStringList?

[Stilet]

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;i:integer;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
for i:=0 to Listq.count-1 do
 FromFile:=FromFile+Listq[i]+#0;
FromFile:=FromFile+#0#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_RENAMEONCOLLISION;
result:=ShFileOperation(F) = 0;
end;

Если не ошибаюсь.

[мимо]

спасибо. Только странно работает
Если не использовать TStringList и вызвать функцию два раза при копировании двух файлов с одинаковыми именами и при этом уже изначально есть папка "Новая папка", то первый файл скопируется нормально в эту папку, а второй файл перед копированием выдаст вопрос - "Папка "Новая папка"\"Новая папка" не существует. Создать ее? - Да/Нет". Если нажать Да, то и папка не создаться и файл не скопируется. Если - Нет - аналогично.
Почему не используется корневая папка "Новая папка"? Зачем идет попытка создать новую папку?

[Stilet]

F.fFlags := FOF_RENAMEONCOLLISION or FOF_NOCONFIRMMKDIR ;