Query4 -> SQL->Clear();
Query4 -> SQL->Add("Insert Into RESPUESTAFUNCIONARIO(IDCONSECUTIVOENCUESTA, IDENCUESTA, IDPREGUNTA, IDRESPUESTA, FUNCIONARIO) Values(:p1, :p2, :p3, :p4, :p5)");
Query4 -> ParamByName( "p1" ) -> AsString = (consecu);
Query4 -> ParamByName( "p2" ) -> AsString = (Request -> ContentFields -> Values[ "encuesta" ]);
Query4 -> ParamByName( "p3" ) -> AsString = (Request -> ContentFields -> Values[ "idpreguntipDOS2" ]);
Query4 -> ParamByName( "p4" ) -> AsString = (Request -> ContentFields -> Values[ "idrestipDOS2" ]);
Query4 -> ParamByName( "p5" ) -> AsString = "The Black Boy";
Query4 -> Prepare( );
Query4 -> ExecSQL( );