CopyFile('w:\sk_all\rar.exe',PChar(strNewFile),False); // работает

//Deleting new directory
                  strReportFile := (strFolder + '\REPORT.TXT');
                  strNewFile := (strFolder + '\*.*');
                  if FindFirst(strNewFile, faAnyFile, sr) =  0  then
                  begin
                     repeat
                        strNewFile := (strFolder + '\' + sr.Name);
                        if strNewFile = strReportFile then begin    //ета строка чё-то не
                                         //  отрабатывает - даже когда значения равны :(((
                           DateSeparator := '-';
                           strDir := ('w:\sk_all\Attache_files\Reports\' + DateToStr(Date));
                           CreateDir(strDir);
                           strReportDir := (strDir + '\' + strTime);
                           CreateDir(strReportDir);
                           strReportFile := (strReportDir + '\Report.txt');
                           CopyFile(strNewFile,PChar(strReportFile), False);  // а вот ето не компиллируется ??
                                         // требует вместо strNewFile - PChar(strNewFile) ??
                        end;
                        DeleteFile(strNewFile);
                     until FindNext(sr) <>  0 ;
                     FindClose(sr);
                  end;
                  RemoveDir(strFolder);