dephi复制文件后成功，删除执行不了，进程如何控制？

procedure  TKAIKAIMAIN.shangchuan(bdlj,zylj,sclj:string);
 var
   sl:TStringList;
   i:Integer;
   sr:TsearchRec;
   dir:string;
   targetpath:string;
begin
 try
    sl:=TStringList.Create;
    dir :=bdlj+'*.txt';
    targetpath:=extractfilepath(dir);{分解出目标路径名}
   if   findfirst(dir,faanyfile,sr)=0   then
        repeat
          if((sr.name<>'.')and(sr.name<>'..'){排除父目录和本目录两个假文件}
          and((filegetattr(targetpath+sr.name)and   fadirectory)<>fadirectory)){只取文件}
          then
              begin
               sl.Add(sr.name);
              end
        until   findnext(sr)<>0;
   //查找本地路径下所有的txt的文件，加入列表中后，上传到服务器指定文件夹中
   if sl.count=0 then exit;
   for i:= 0 to sl.Count-1 do
   begin
    if FileExists(bdlj+sl[i])then
    begin
        //RenameFile(bdlj+sl[i],zylj+sl[i]) ;
         IdFTP1.Put(bdlj+sl[i],sclj+sl[i]);//上传，    ,True
    end ;
         copyfile (pchar(bdlj+sl[i]),pchar( zylj+sl[i] ),False);
         DeleteFile(bdlj+sl[i]) ;
   end;
  except
     ;
  end;
end;