копирование не работает?!

[Volkogriz]

Доброго времени суток!
Всех с новым годом!
У меня возникла такая проблема:
Есть список файлов например:
Файл.EXE
Файл.dat
Файл.doc
Файл.RFD
DATA\Нефайл.doc
DATA\Нефайл.RFD

var
ReservCopy:TStringList;
Cop:Integer;
begin
ReservCopy:=TStringList.Create;
ReservCopy.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\BackupFile.dat');
for Cop:=0 to ReservCopy.Count-1 do
begin
if CreateDir(ExtractFilePath(Application.ExeName)+'data\BackupFile\'+ExtractFilePath(ReservCopy.Strings[Cop])) then
 if copyfile(Pchar(GamPatch+ExtractFilePath(ReservCopy.Strings[Cop])+ExtractFileName(ReservCopy.Strings[Cop])),Pchar(ExtractFilePath(Application.ExeName)+'data\BackupFile\'+ExtractFilePath(ReservCopy.Strings[Cop])+ExtractFileName(ReservCopy.Strings[Cop])+IntToStr(Cop)),true)  then

Копирует только первые файлы с разными именами из списка.
Что не так подскажите плиз.
За ранее Благодарен!
С уважением,
Volkogriz!

[Аватар]

А полюбопытствовать, что вернет CreateDir, если такой каталог уже существует, не судьба?

[Volkogriz]

Спасибо понял исправил!
С уважением,
Volkogriz!