ftp.Host:=ftpHost;
ftp.Port:=ftpPort;
ftp.Username:=ftp_login;
ftp.Password:=ftp_password;


     FTP.TransferType := ftBinary;
     //    FTP.TransferType := ftASCII;
     FTP.Passive := true ;   ftp.Connect ;
     AssErt(ftp.Connected);   { ftp.ChangeDir(ftp_path); }
     ftp.Put(sq, maxid1 +'-' + inttostr (strtoint(max_inc)+1),false);

     ShowMessage('Отправлено');

    finally
    ftp.Quit;
    ftp.Disconnect;
    ftp.Free;
     ms.Free;
    end;
  except
    ShowMessage('Неудачно');
    exit;
  end;

 IdFTP.TransferType := ftBinary;


  if idFTP.Connected then
    begin
      idFTP.Disconnect;
try
    idFTP.Connect;
  except
    on E : Exception do
      ShowMessage('Ошибка подключения: '+E.Message);
  end;
  if idFTP.Connected then
    try
 //     idFTP.Get(name, 'c:/temp/test.rar', True);
    Begin  idFTP.Get(name, name1, True); end;
    except
      on E : Exception do
        ShowMessage('Ошибка скачивания файла: ' + E.Message);
    end;
    end
  else
  try
    idFTP.Connect;
  except
    on E : Exception do
      ShowMessage('Ошибка подключения: '+E.Message);
  end;
  if idFTP.Connected then
    try
 //      idFTP.Get(name, 'c:/temp/test.rar', True);

    Begin  idFTP.Get(name, name1, True);   { ShowMessage('Файл скачан'); } end;

    except
      on E : Exception do
        ShowMessage('Ошибка скачивания файла: '+E.Message);
    end;


       ShellExecute(0, 'open', Pchar(name1), '', '', sw_show);