Deletefile()

[Guest]

Здравствуйте!
У меня задача перенести из одного каталога файлы в другой. Есть некий список файлов.
Файлы копируются, но почему-то не удаляются, хотя об ошибке среда не сообщает.
При пошаговом просмотре программы все нормально удаляется.
Прилагаю отрывок текста:

Fdir:=DataModuleDataSet.IniDir+'\Standard Files\';

if DirectoryExists(DataModuleDataSet.IniDir+'\Used_Order\')=false then
CreateDir(DataModuleDataSet.IniDir+'\Used_Order\');
for i := 0 to FormMassiv.lbOrdersNumber.Items.count-1 do
begin
CopyFile(PChar(Fdir+FormMassiv.lbOrdersNumber.Items.strings),PChar(DataModule
DataSet.IniDir+'\Used_Order\'+FormMassiv.lbOrdersNumber.Items.strings),true);
DeleteFile(PChar(Fdir+FormMassiv.lbOrdersNumber.Items.strings));
end;


Подскажите, почему так получается ?

 

[etc]

Почему не MoveFile ?

 

[Guest]

Поставила Move - ситуация аналогична. В другую папку копируется, в этой остается
Мне совсем непонятно, почему в отладочном режиме проблем нет, а в нормальном откуда-то выскакивает.
Задержка перед удалением не помогает.

 

[etc]

Что говорит GetLastError ?

 

[Guest]

дает 0.
Ошибок нет! Функция deleteFile() и MoveFile() на выходе дают значение true.

Вообще я работаю с .xml файлами. Думала, что может где-то висят незакрытые... Посмотрела, вроде нет.
Может ли такое быть, что файлики где-то не закрыты и при этом функция не выдает ошибку?

 

[etc]

Думала, что может где-то висят незакрытые...

Тогда не былобы тру, а так, раз все в норме - расслабтесь, это галюцинации, пройдут.

 

[Guest]

Спасибо
Я еще потыкаю...