procedure FTPUpload();
var IdFTP:TIdFtp;
   dn:integer;
   F: TSearchRec;
begin
 try
   IdFTP:=TIdFTP.Create(nil);
   if IdFTP.Connected then
     begin
      IdFTP.Abort;
      IdFTP.Quit;
     end;
   IdFTP.Username := UserName;
   IdFTP.Password := UserPass;
   IdFTP.Host := FTPIp;
   try
      IdFTP.Connect;
      if IdFTP.Connected then
        begin
         IdFTP.ChangeDir('/Send');
         chdir('D:\Send\');
         dn := FindFirst('*.*',faArchive,F);
         while dn = 0 do
           begin
             IdFTP.Put('D:\Send\'+f.name,f.name);
             dn := FindNext(F);
           end;
         IdFTP.Quit;
        end;
      ShowMessage('Загрузка завершена.');  
   except
      ShowMessage('Ошибка отправки.');
   end;
 finally
   IdFTP.Free;
 end;
end;

procedure FTPDownload();
var IdFTP:TIdFtp;
   dn:integer;
   F: TSearchRec;
begin
 try
   IdFTP:=TIdFTP.Create(nil);
   if IdFTP.Connected then
    begin
      IdFTP.Abort;
      IdFTP.Quit;
    end;
   IdFTP.Username := UserName;
   IdFTP.Password := UserPass;
   IdFTP.Host := FTPIp;
   try
      IdFTP.Connect;
      if IdFTP.Connected then
        begin
         IdFTP.ChangeDir('/Recv');
         //chdir('D:\Recv\');
         dn := FindFirst('*.*',faArchive,F);
         while dn = 0 do
           begin
             IdFTP.Get(f.name, 'D:\Recv\'+f.name);
             dn := FindNext(F);
           end;
         IdFTP.Quit;
        end;
      ShowMessage('Прём файлов завершен.');
   except
      ShowMessage('Ошибка приёма.');
   end;
 finally
     IdFTP.Free;
 end;
end;

dn := FindFirst('*.*',faArchive,F);
        while dn = 0 do
          begin
            IdFTP.Get(f.name, 'D:\Recv\'+f.name);
            dn := FindNext(F);
          end;

procedure Download;
var
 IdFTP:TIdFtp;
 Path: string;
 FileList :  TStringList;
 jj: Integer;
begin
 IdFTP:=TIdFTP.Create(nil);
   if IdFTP.Connected then
    begin
      IdFTP.Abort;
      IdFTP.Quit;
    end;
 IdFTP.Username := UserName;
 IdFTP.Password := UserPass;
 IdFTP.Host := FTPIp;
 Path := 'D:\Recv\';
 try
   IdFTP.Connect();
   idFTP.ChangeDir('/Recv');
   try
     FileList := TStringList.Create;
     idFTP.List(FileList,'*.*',False);
     for jj := 0 to FileList.Count-1 do
     begin
       try
         idFTP.Get(FileList[jj], Path + FileList[jj], True);
       except
         on E: Exception do
           ShowMessage(Format('Ошибка скачивания',[FileList[jj], E.ClassName, E.Message]));
       end;
     end;
   finally
     FreeAndNil(FileList);
   end;

   IdFTP.Disconnect
 except
   on E: Exception do
     showmessage('Error!'#13#10+E.Message);
 end;

var dn, i, j:integer;
   F: TSearchRec;
   MyFile:TextFile;
   newFile, ftpFileName:string;
   ftpFileSize:Integer;
begin
LogFTP;//процедура соединение с сервером
if FTPStatus=1 then
if ListView3.Items.Count>0 then
  begin
    i:=0;
    ProgressBar2.Max:= ListView3.Items.Count-1;
    ProgressBar2.Min := 0;
    ProgressBar2.Position := 0;
    Memo1.Lines.Add('Открыт соединение с сервером');
    dn := FindFirst(path+'Send\*.*',faArchive,F);
    while dn = 0 do
      begin
        ProgressBar1.Position := 0;
        TotalBytes :=F.Size;
        newFile:=copy(f.Name,1,Length(f.Name)-4)+'.crc';
        AssignFile(MyFile,path+'Send\'+newFile);//создания файла проверки
        try
          Rewrite(MyFile);
          Write(MyFile,TotalBytes);
        finally
          CloseFile(MyFile);
          FTPClient.DataStream.LoadFromFile(path+'Send\'+newFile);
          FTPClient.StoreFile(ExtractFileName(FTPClient.GetCurrentDir+'Send/'+NewFile), false);
        end;
        FTPClient.DSock.OnStatus := SockPutCallBack;
        FTPClient.DataStream.LoadFromFile(path+'Send\'+f.Name);
        Memo1.Lines.Add('Отправка файла:   ' + f.Name+'      Размер:   ' + IntToStr(TotalBytes));
        if FTPClient.StoreFile(ExtractFileName(FTPClient.GetCurrentDir+'Send/'+f.Name), false) = true then
          begin
            FTPClient.List(FTPClient.GetCurrentDir+'/Send/',false);
            for j := 0 to FTPClient.FtpList.Count-1 do
              begin
               ftpFileName:= FTPClient.FtpList[j].FileName ;
               ftpFileSize:= FTPClient.FileSize(FTPClient.GetCurrentDir+'Send/'+FTPClient.FtpList[j].FileName);;//если в сервер закачан файл и его размер подходит то ..
               if (ftpFileName=f.Name) and (TotalBytes = ftpFileSize) then
                begin
                  Memo1.Lines.Add('Загружен файл: '+F.Name+' время закачки: '+datetimetostr(NOW));
                  inc(i);
                  DeleteFile(path+'Send\'+f.Name);
                  DeleteFile(path+'Send\'+NewFile);
                  Break;
                end;
              end;
            ProgressBar1.Position := 0;
            Update;
          end
        else Memo1.lines.add('Ошибка отправки');
        ProgressBar2.Position := ProgressBar2.Position + 1;
        dn := FindNext(F);
      end;
    Memo1.Lines.Add('Успешно закачанных файлов: '+inttostr(i));
    Memo1.Lines.Add('Соединение закрыто');
    ProgressBar2.Position :=0;
  end;
LogoutFTP;
end;