consecu = 0;
Query2 -> Open();
Query2->SQL->Clear();
Query2 -> SQL -> Add("Insert Into RESPUESTAFUNCIONARIO(IDCONSECUTIVOENCUESTA, IDENCUESTA, IDPREGUNTA,IDRESPUESTA, FUNCIONARIO) Values(:p1, :p2, :p3, :p4, :p5)");
Query2 -> ParamByName("p1") -> AsInteger = StrToInt(Request -> ContentFields-> Add(consecu) );
Query2 -> ParamByName("p2") -> AsInteger = StrToInt(Request -> ContentFields -> Add(1));
Query2 -> ParamByName("p3") -> AsInteger = StrToInt(Request -> ContentFields -> Add("ra1"));
Query2 -> ParamByName("p4") -> AsInteger = StrToInt(Request -> ContentFields -> Add("r1"));
Query2 -> ParamByName("p5") -> AsString = (Request -> ContentFields->Values["The Black Boy"]);
Query2 -> Prepare();
Query2 -> ExecSQL();
consecu = (consecu + 1);