Delphi (AdoQuery) BD (SQLSERVER 2014)

Dados.Query_Tb_Agenda.Close;
Dados.Query_Tb_Agenda.SQL.Clear;
Dados.Query_Tb_Agenda.SQL.Add('insert into tb_Agenda values(:agdData, :agdHora, :usuarioid, :Tipo_Consulta, :Tipo_Convenio, :Medico_Requerente),');
Dados.Query_Tb_Agenda.SQL.Add(':Convenio_Carteira, :DoutorId, :AgdChaveMedico, :agdChavePaciente');
//Dados.Query_Tb_Agenda.Parameters.ParamByName('pacienteID').Value:= numero;
Dados.Query_Tb_Agenda.Parameters.ParamByName('agdData').Value:= data;
Dados.Query_Tb_Agenda.Parameters.ParamByName('agdHora').Value:= (DBComboBoxHoraConsulta.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('usuarioid').Value:= 3;
Dados.Query_Tb_Agenda.Parameters.ParamByName('Tipo_Consulta').Value:= (DBcomboBoxConsulta.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('Tipo_Convenio').Value:= (DBComboBoxConvenio.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('Medico_Requerente').Value:=(DBComboBoxMedicoReq.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('Convenio_Carteira').Value:= DBEditConvCarteira.Text;
Dados.Query_Tb_Agenda.Parameters.ParamByName('DoutorId').Value:= 2;
Dados.Query_Tb_Agenda.Parameters.ParamByName('agdChaveMedico').Value:= (DBEditAgdChaveMedico.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('agdChavePaciente').Value:= (DBEditAgdChavePaciente.Text);
Dados.Query_Tb_Agenda.ExecSQL;
Dados.Query_Tb_Agenda.Open;

ao confirmar inserção da msg de O aplicativo esta usando um valor incorreto para a operação atual.
Preciso de ajuda, agradeço desde já. Muito obrigado