Problemas : Cursor not Returned from Query

 
With DataModule1.SQLQueryClientes do
       begin

SQL.Clear;
SQL.Add(´Insert into Clientes´);
SQL.Add(´ (nome,residencia,fone,bairro,cidade,referencia,endereco_cob,naturalidade,uf,estado_civil,profissao,firma,pai, mae,rg,sexo,nascimento) ´);
SQL.Add(´Values (:nome,:residencia,:fone,:bairro,:cidade,:referencia,´
        +´:endereco_cob,:naturalidade,:uf,:estadocivil,´
        +´:profissao,:firma,:pai,:mae,:rg,:sexo,:nascimento)´);

ParamByName(´nome´).Value:= DbContribuinte.Text;
ParamByName(´residencia´).Value:= Dbendereco.Text;
ParamByName(´fone´).Value:= Dbfone.Text;
ParamByName(´bairro´).Value:= Dbbairro.Text;
ParamByName(´cidade´).Value:= Dbcidade.Text;
ParamByName(´referencia´).Value:= Dbreferencia.Text;
ParamByName(´endereco_cob´).Value:= Dbendereco.Text;
ParamByName(´naturalidade´).Value:= Dbnaturalidade.Text;
ParamByName(´uf´).Value:= DbEstado.ItemIndex;
ParamByName(´nascimento´).Value:= Dbnascimento.Text;
ParamByName(´estadocivil´).Value:= DbEstadocivil.Text;
ParamByName(´profissao´).Value:= Dbprofissao.Text;
ParamByName(´firma´).Value:= Dbfirma.Text;
ParamByName(´pai´).Value:= Dbpai.Text;
ParamByName(´mae´).Value:= dbmae.Text;
ParamByName(´rg´).Value:= Dbrg.Text;
ParamByName(´sexo´).Value:= DbSexo.ItemIndex;
Try
ExecSQL;

if Application.MessageBox(´Cadastro Efetuado com sucesso, Deseja inserir Beneficiaios ?´, ´Cadastro´, MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON1) = ID_YES then
   begin
    FrmCadastroBeneficiario.ShowModal;
   end;
except
on e: exception do ShowMessage(e.Message);
end;
Self.Close;

end;

Var str: string;
begin
str:= InputBox(´Beneficiários´,´Código de Contrato´,´´);

if Length(str) = 0 then exit;

with   DataModule1.ClientDataSetClientes do
       begin
       Close;
       Open;
       Filtered:= False;
       Filter:=´id = ´ + str;
       Filtered:= true;
       end;

with   DataModule1.ClientDataSetBeneficiarios do
       begin
       Close;  
       Open;  
       Filtered:= False;
       Filter:=´id = ´ + str;
       Filtered:= true;
       end;

with   DataModule1.SQLQueryInserir do
       begin
       SQL.Clear;
       SQL.Add(´Select * From beneficiarios where id = :ID´);
       ParamByName(´ID´).AsString:= str;
       Try
       ExecSQL;
       LabelCount.Caption:= IntToStr(RowsAffected);
       LabelCount.Update;
       Except end;
       end;
end;