Fórum Erro ao gravar no MySQL #431078

  if Length(Trim(EdtNome.Text)) <= 0 then
  begin
    EdtNome.SetFocus;
    Application.MessageBox(pChar(''Digite o nome!''), ''Erro'', MB_ICONERROR + MB_OK);
    Exit;
  end;

  try
    with DmGeral.IboQryInsere do
    begin
      Close;
      SQL.Clear;
      if bInserir then
      begin
        SQL.Text := ''INSERT INTO clientes '' +
                    ''(CLI_CODIGO, CLI_NOME, CLI_DATA_CAD, CLI_DATA_NASC, CLI_ENDERECO, CLI_COMPLEMENTO, CLI_BAIRRO, CLI_CIDADE, CLI_CEP, CLI_EMAIL, CLI_TEL_RES, CLI_TEL_COM, CLI_TEL_CEL, CLI_CPF_CNPJ, CLI_RG_IE, CLI_CONTATO, CLI_TIPO, CLI_USUARIO, CLI_ULTIMA_ALTERACAO) '' +
                    ''VALUES '' +
                    ''(:CLI_CODIGO, :CLI_NOME, :CLI_DATA_CAD, :CLI_DATA_NASC, :CLI_ENDERECO, :CLI_COMPLEMENTO, :CLI_BAIRRO, :CLI_CIDADE, :CLI_CEP, :CLI_EMAIL, :CLI_TEL_RES, :CLI_TEL_COM, :CLI_TEL_CEL, :CLI_CPF_CNPJ, '' +
                    '':CLI_RG_IE, :CLI_CONTATO, :CLI_TIPO, :CLI_USUARIO, :CLI_ULTIMA_ALTERACAO) '';
      end
      else
      begin
        SQL.Text := ''UPDATE clientes SET CLI_NOME =:CLI_NOME, CLI_DATA_CAD =:CLI_DATA_CAD, CLI_DATA_NASC =:CLI_DATA_NASC, CLI_ENDERECO =:CLI_ENDERECO, '' +
                    '' CLI_COMPLEMENTO =:CLI_COMPLEMENTO, CLI_BAIRRO =:CLI_BAIRRO, CLI_CIDADE =:CLI_CIDADE, CLI_CEP =:CLI_CEP, '' +
                    '' CLI_EMAIL =:CLI_EMAIL, CLI_TEL_RES =:CLI_TEL_RES, CLI_TEL_COM =:CLI_TEL_COM, CLI_TEL_CEL =:CLI_TEL_CEL, '' +
                    '' CLI_CPF_CNPJ =:CLI_CPF_CNPJ, CLI_RG_IE =:CLI_RG_IE, CLI_CONTATO =:CLI_CONTATO, CLI_TIPO =:CLI_TIPO, '' +
                    '' CLI_USUARIO =:CLI_USUARIO, CLI_ULTIMA_ALTERACAO =:CLI_ULTIMA_ALTERACAO WHERE CLI_CODIGO =:CLI_CODIGO'';
      end;
      Parameters.ParamByName(''CLI_CODIGO'').Value := iCli_codigo;
      Parameters.ParamByName(''CLI_NOME'').Value := EdtNome.Text;
      Parameters.ParamByName(''CLI_DATA_CAD'').Value := FormatDateTime(''yyyy-mm-dd'',dCli_data_cad);
      try
        Parameters.ParamByName(''CLI_DATA_NASC'').Value := FormatDateTime(''yyyy-mm-dd'',StrToDate(EdtData_nasc.Text));
      except
      end;
      Parameters.ParamByName(''CLI_ENDERECO'').Value := EdtEndereco.Text;
      Parameters.ParamByName(''CLI_COMPLEMENTO'').Value := EdtComplemento.Text;
      Parameters.ParamByName(''CLI_BAIRRO'').Value := EdtBairro.Text;
      Parameters.ParamByName(''CLI_CIDADE'').Value := EdtCidade.Text;
      Parameters.ParamByName(''CLI_CEP'').Value := EdtCep.Text;
      Parameters.ParamByName(''CLI_EMAIL'').Value := EdtEmail.Text;
      Parameters.ParamByName(''CLI_TEL_RES'').Value := EdtTel_res.Text;
      Parameters.ParamByName(''CLI_TEL_COM'').Value := EdtTel_com.Text;
      Parameters.ParamByName(''CLI_TEL_CEL'').Value := EdtTel_cel.Text;
      Parameters.ParamByName(''CLI_CPF_CNPJ'').Value := EdtCpf_cnpj.Text;
      Parameters.ParamByName(''CLI_RG_IE'').Value := EdtRg_ie.Text;
      Parameters.ParamByName(''CLI_CONTATO'').Value := EdtContato.Text;
      Parameters.ParamByName(''CLI_TIPO'').Value := sTipo;
      Parameters.ParamByName(''CLI_USUARIO'').Value := iId_usuario;
      Parameters.ParamByName(''CLI_ULTIMA_ALTERACAO'').Value := FormatDateTime(''yyyy-mm-dd'',Date);
      ExecSQL;
    end;
  except
    on E : Exception do
      Application.MessageBox(pChar(E.message),''Erro'',MB_ICONINFORMATION+MB_OK);
  end;
  Application.MessageBox(pChar(''Operação realizada com sucesso!''), ''Informação'', MB_ICONINFORMATION + MB_OK);
  if not bInserir then
    ModalResult := mrOk
  else
    BtCancelar.Click;