// Функция вернет кол-во файлов для помещения на сервер.
function GetFieldsToCopy (PathToCount : string) : integer;
var
 sr: TSearchRec;
 i : integer;
begin
 i:= 0 ;
 if FindFirst(PathToCount, faAnyFile, sr) =  0  then
 begin
   i:= 1 ;
   //LogCopyToBIS.Add('В каталоге '+PathToCount+' найден файл '+ sr.Name);
   while ((FindNext(sr)= 0 ) and (i<MAXCountFile)) do
   begin
     i:=i+ 1 ;
     //LogCopyToBIS.Add('В каталоге '+PathToCount+' найден файл '+ sr.Name);
   end;
   FindClose(sr);
 end else begin
            i:=  0 ;
            AddError('В каталоге '+PathToCount+' файлы не найдены ');
          end;
 if MAXCountFile-i >  0  then Result := MAXCountFile-i else
 Result :=  0 ;
end;