Fórum Erro Stored Procedure Delphi 2010 #549944

Pessoa, boa noite.
Essa procedure roda 100% no delphi 7, porém no delphi 2010, me retorna um erro unsupported feature.

dm1.spIncCliente.Close;
if frmassociados.tipoCliente = '' then
dm1.spIncCliente.ParamByName('id').asinteger := 0
else
dm1.spIncCliente.ParamByName('id').AsInteger := dm1.qryviewClienteID.value;

dm1.spIncCliente.ParamByName('cpf').asstring := CPF.Text;
dm1.spIncCliente.ParamByName('tcliente').asstring := tclientePrincipal;
dm1.spIncCliente.ParamByName('cnpj').asstring := cnpj.Text;
dm1.spIncCliente.ParamByName('ie').asstring := ie.Text;
dm1.spIncCliente.ParamByName('rg').asstring := identidade.Text;
dm1.spIncCliente.ParamByName('nome').asstring := nome.Text;
dm1.spIncCliente.ParamByName('cep').AsString := cep.text;
dm1.spIncCliente.ParamByName('cidade').asinteger := cidade.KeyValue;
dm1.spIncCliente.ParamByName('tipoend').asstring := tipoend.Text;
dm1.spIncCliente.ParamByName('numero').asstring := numero.Text;
dm1.spIncCliente.ParamByName('lograd').asstring := logradouro.Text;
dm1.spIncCliente.ParamByName('bairro').asstring := bairro.Text;
dm1.spIncCliente.ParamByName('comp').asstring := complemento.Text;
dm1.spIncCliente.ParamByName('dddresid').asstring := dddresid.Text;
dm1.spIncCliente.ParamByName('foneresid').asstring := foneresid.Text;
dm1.spIncCliente.ParamByName('dddcom').asstring := dddcom.Text;
dm1.spIncCliente.ParamByName('fonecom').asstring := fonecom.Text;
dm1.spIncCliente.ParamByName('dddcel').asstring := dddcel.Text;
dm1.spIncCliente.ParamByName('fonecel').asstring := fonecel.Text;
dm1.spIncCliente.ParamByName('st').asstring := ativo.Text;
dm1.spIncCliente.ParamByName('email').asstring := email.Text;
dm1.spIncCliente.ParamByName('obs').asstring := obs.Text;
if rgtipocliente.ItemIndex = 0 then
dm1.spIncCliente.ParamByName('tipo_sis_cdl').asstring := 'Cliente';
if rgtipocliente.ItemIndex = 1 then
dm1.spIncCliente.ParamByName('tipo_sis_cdl').asstring := 'Associado';
dm1.spIncCliente.ParamByName('id_associado').asstring := '0';
dm1.spIncCliente.ExecProc;