[LeonDerCom]

Добавьте в код выделенную строчку и скажите номер ошибки.

if (WinAPI::copyFile(fileName, _path_temp, true) == 0)
    {
        forFindPath = _pathFind;
    }
    else
    {
         [ ]error(Int2str(WinAPI::GetLastError()));[ ]         
         error ('Îøèáêà êîïèðîâàíèÿ ôàéëà:'+fileName+";"+ _path_temp);
         error(Int2str(WinAPI::copyFile(fileName, _path_temp, true)) ) ;
         throw exception::Error;
    }

Смотреть расшифровку
Источник: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
Рус. яз. : http://www.delphisources.ru/pages/fa...in_errors.html