procedure TForm1.ExecSQL(fFDConnection: TFDConnection; fSQLText: String;
                         fisOpen:boolean; fFileName,fDelim:String; fBlockSize:Integer; 
                         fisStandartExport:Boolean;
                         var fError: String);
var
  qrTemp: TFDQuery;
  fMemoryStream:TMemoryStream;
begin
  try
    qrTemp := TFDQuery.Create(Self);
    with qrTemp do
      try
        Connection := fFDConnection;
        SQL.Text := fSQLText;
        if fisOpen then
        begin
          FetchOptions.CursorKind := ckForwardOnly;
          Open;
          if (fFileName <> '') then
          begin
            if fisStandartExport then
              SaveToFile(fFileName,sfBinary);
          end
          else
          begin
            fMemoryStream := TMemoryStream.Create;
            SaveToStream(fMemoryStream,sfBinary);
            SendData('192.168.1.1','', fMemoryStream,StrToIntDef(Edit3.Text,0),5,3,False,fProxyList);
          end;
          Close;
        end
        else
          ExecSQL;
      except
        on E:Exception do
          fError := 'ExecSQL-'+E.Message;
      end;
  finally
     FreeAndNil(qrTemp);
     if fFileName = '' then
       FreeAndNil(fMemoryStream);
  end;
end;

function TForm1.SendData(Server,FileName: String;
                         var MemStream:TMemoryStream;
                         KbBuff:integer; //Если 0, то весь файл
                         SleepTime:integer; //Интервал времени между отправками порций
                         maxCountErrorSend:integer; //Сколько раз отправлять в случае ошибки
                         isUseProxy:boolean;
                         ProxyList:TStringList): Integer;
var
  HTTP:THTTPSend;
  fFileSend:TFileStream; //Стим для файла который надо отправить
  fRangeStart, fRangeEnd:int64; //Позиции в файле для отправки
  fDataSize:int64; //Размер отправляемых данных (в байтах)
  fProxyRect:TProxyRect;//Proxy настройки
  i:integer;//Колчество порций kbBuff в fDataSize
  fCountError:Byte;
  fResult:integer;
  fCurrentProxy:Integer;
begin
  if not IsServerConnect(Server) then begin Result := -1; exit; end; //Сервер недоступен
  if FileName <> '' then  //Если передается файл
  begin
    if not FileExists(FileName) then begin Result := -2; exit; end; //Файл не найден
    try
      fFileSend := TFileStream.Create(FileName,fmOpenRead);
      fDataSize := fFileSend.Size;
    except
      try FreeAndNil(fFileSend); except end;
      Result := -3;//Не получили доступ к файлу
      exit;
    end
  end
  else //Если передаются данные из Query
  begin
    if MemStream.Size <= 0 then begin Result := -3; exit; end; //Stream не содержит данных
    fDataSize := MemStream.Size;
  end;
  if isUseProxy and Assigned(ProxyList) then //Заполняем список Proxy серверов
    GetProxyList(ProxyList);
  fRangeStart := 0;
  fRangeEnd := 0;
  i := 1;
  fCountError := 0;
  fResult := 0;
  fCurrentProxy := 0;
  fProxyRect.ProxyServer := '';
  HTTP := THTTPSend.Create;
  fProxyRect := GetOneProxy(fCurrentProxy,fProxyList);
  if KbBuff <= 0 then fRangeEnd := fDataSize;
  try
      repeat
          if KbBuff > 0 then
          begin
            fRangeEnd := i * KbBuff * 1024; //Высчитываем Position в потоке в зависимости от количества размера Буфера в Кб
            if fDataSize <= fRangeEnd  then //Если размер буфера превышает размер передаваемых данных
              fRangeEnd := fDataSize;
          end;
          if FileName <> '' then  //Если передается файл
            fFileSend.Position := fRangeStart //Переходим на нужную позицияю в файле
          else
            MemStream.Position := fRangeStart;
              //MemStream.Seek(fRangeStart,fRangeEnd);

          HTTP.Clear;//Очищаю соединение

          if (fResult <> 200) and isUseProxy then  //Если не прошло, то возможно из-за proxy
          begin
            inc(fCurrentProxy);
            fProxyRect := GetOneProxy(fCurrentProxy,fProxyList); //Получаем новый Proxy
          end;
          if isUseProxy and (fProxyRect.ProxyServer <> '') then //Заполняем Proxy
          begin
            HTTP.ProxyHost := fProxyRect.ProxyServer;
            HTTP.ProxyPort := fProxyRect.ProxyPort;
            HTTP.ProxyUser := fProxyRect.ProxyUser;
            HTTP.ProxyPass := fProxyRect.ProxyPassword;
          end;
          HTTP.UserAgent := 'Mozilla/5.0';
          HTTP.Headers.Add ('X-PosFD='+IntToStr(fRangeStart)+'-'+IntToStr(fRangeEnd));
          try
            if FileName <> '' then  //Если передается файл
              HTTP.Document.CopyFrom(fFileSend,fRangeEnd-fRangeStart)
            else
              HTTP.Document.CopyFrom(MemStream,fRangeEnd-fRangeStart);
            HTTP.HTTPMethod('GET', Server); //Отправляем данные
            fResult := HTTP.ResultCode;
          finally
            if fResult = 200 then
            begin
              inc(i); //сл порция
              fCountError := 0;
              fRangeStart := fRangeEnd;
            end
            else Inc(fCountError);
          end;
          Sleep(SleepTime*1000);
      until (fRangeEnd >= fDataSize) or (fCountError >= maxCountErrorSend);  //Пока не передали все
      Result := fResult;
  finally
    try HTTP.Free; except end;
    if FileName <> '' then
      try fFileSend.Free; except end;
  end;
end;