Procedure TForm1.ConnectToServer(fConnectString: String; fAutoReconnect:Boolean;
                                 fIsolation:TFDTxIsolation; 
                                 var fResult:String; var fisConnect:boolean);
var
  i:Byte;
begin
  i := 0;
  if FDConnection1.Connected then
    FDConnection1.Connected := False;
  FDConnection1.TxOptions.Isolation := fIsolation;
  FDConnection1.ResourceOptions.AutoReconnect := fAutoReconnect;   
  FDConnection1.Params.Text := fConnectString;
  while (not FDConnection1.Connected) and (i < 2) do 
  //2 попытки на соединение (в случае c FireBird столкнулся с тем, что если с первого раза не соединился, есть шанс 
  //соединиться со второй попытки через непродолжительное время, в моем случае я взял секунду
  //связано с ошибкой - Connection rejected by remote interface)
  try
    if i > 0 then sleep(1000);
    FDConnection1.Connected := true;
  except
    on E:Exception do
    begin
      inc(i);
      fResult := 'ConnectToServer-' + E.Message;
    end;
  end;
  fisConnect := FDConnection1.Connected;
end;

procedure TForm1.ExecSQL(fFDConnection: TFDConnection; fSQLText: String;
                         fisOpen:boolean; fFileName,fDelim:String; fBlockSize:Integer; 
                         fisStandartExport:Boolean;
                         var fError: String);
//fSQLText - текст запроса
//fisOpen - True(Запрос Select), False (Запрос DML)
//fFileName - Файл куда сохраняется результат (путь и имя файла, например: d:\1.txt)
  //fDelim - разделитель между значениями полей;
  //fBlockSize - Сколько записей надо накопить перед сбросом в файл
  //fisStandartExport - Выгрузить стандартной выгрузкой FDQuery (на всякий случай)
var
  qrTemp: TFDQuery;
begin
  qrTemp := TFDQuery.Create(Self);
  with qrTemp do
  try
    try
      Connection := fFDConnection;
      SQL.Text := fSQLText;
      DisableControls;
      fFDConnection.TxOptions.ReadOnly := fisOpen;
      if fisOpen then
      begin
        FetchOptions.CursorKind := ckForwardOnly;
        Open;
        if (fFileName <> '') then
          if fisStandartExport then
            SaveToFile(fFileName,sfBinary)//Стандартная выгрузка
          else
          begin
            fError := SaveQueryToFile(fFileName,qrTemp,fDelim,fBlockSize);
            if fError <> '' then
              exit; //Переход на Finally
          end;
        Close;
      end
      else
        ExecSQL;
    except
      on E:Exception do
        fError := 'ExecSQL-'+E.Message;
    end;
  finally
    try FreeAndNil(qrTemp); except end;
  end;
end;

ExecSQL(FDConnection1,Memo2.Text,True,'d:\MyTxt.txt','~',10000,False,fErrorMessage);

Function TForm1.SaveQueryToFile(fFileName: String; fFDQuery: TFDQuery;
                                fDelim:String; fBlockSize:Integer):String;
//fDelim - разделитель между значениями полей;
//fBlockSize - Сколько записей надо накопить перед сбросом в файл
var
  i,fBlock,fFieldCount: Integer;
  OutLine,sTemp: string;
  F:TextFile;
begin
  memo3.Clear;
  //fFDQuery.FetchOptions.CursorKind := ckForwardOnly; И fFDQuery.DisableControls; выполняются до
  //FreeAndNil(fFDQuery); происходит после выполнения процедуры
  fFDQuery.First;
  memo3.Lines.Add('StreamOutline begin - '+datetimetostr(now));
  SaveQueryToFile := '';
  AssignFile(F,fFileName);
  fBlock := 0;
  try
    Rewrite(f);
  except
    on E:Exception do
    begin
      SaveQueryToFile := 'RewriteFile-'+E.Message;
      FreeAndNil(F);
      exit;
    end;
  end;
  try
    try
      fFieldCount := fFDQuery.FieldCount;
      while not fFDQuery.Eof do
      begin
          for i := 0 to fFieldCount - 1 do
          begin
            sTemp := fFDQuery.Fields[i].AsString;
            OutLine := OutLine + sTemp + fDelim;
          end;
          setLength(OutLine, Length(OutLine) - 1);
          OutLine := OutLine + sLineBreak;
          if (fBlock >= fBlockSize) then
          begin
            setLength(OutLine, Length(OutLine) - 1);
            try
              Write(F,OutLine);
            except
              on E:Exception do
              begin
                SaveQueryToFile := 'WriteToFile-'+E.Message;
                FreeAndNil(F);
                exit; //переход на filally
              end;
            end;
            OutLine := '';
            fBlock := 0;
          end
          else Inc(fBlock);
          fFDQuery.Next;
      end;
      if (OutLine <> '') then
        Writeln(F,OutLine); //Дописываем блок в котором не набралось нужное количество записей
    except
      on E:Exception do
      begin
        SaveQueryToFile := 'SaveQueryToFile-'+E.Message;
        FreeAndNil(F);
        exit; //переход на filally
      end;
    end;
  finally
    try CloseFile(F); except end;
  end;
  memo3.Lines.Add('StreamOutline End - '+datetimetostr(now));
end;

fError := SaveQueryToFile('d:\1.txt',qrTemp,'~',10000);