Fórum problemas com update #183058

tenho uma rotina de alteração. usando o update. mas não funciona dejeito nenhum. pego a mesma rotina jogo no iboconsole e ele funciona perfeitamente o que poderia estar ocorrendo na minha rotina para que ela não funcione?
trabalho com firebird x delphi 6
texto:=´ update empresa ´;
texto:=texto+´ set desc_emp= :descr, ender_emp= :ender,bair_emp= :bairro,´;
texto:=texto+´ munic_emp= :munic, uf_emp= :uf, tel_emp= :tel, fax_emp= :fax,´;
texto:=texto+´ cep_emp= :cep, cgc_emp= :cgc, insc_emp= :inscr, diret_emp= :diret,´;
texto:=texto+´ diretcpf_emp= :cpfdiret, dtfund_emp= :dtfund, email_emp= :email´;
texto:=texto+´ where cod_emp= :codigo´;
with Dmestoque.Qrycliente do
begin
close;
sql.clear;
sql.Add(texto);
parambyname(´descr´).AsString:=Editdescricao.Text;
parambyname(´ender´).AsString:=Editendereco.Text;
parambyname(´bairro´).AsString:=Editbairro.Text;
parambyname(´munic´).AsString:=Editmunicipio.Text;
parambyname(´uf´).AsString:=Comboxuf.Text;
parambyname(´tel´).AsString:=MskEdittelefone.Text;
parambyname(´fax´).AsString:=MskEditfax.Text;
parambyname(´cep´).AsString:=MskEditcep.Text;
parambyname(´cgc´).AsString:=MskEditcgc.Text;
parambyname(´inscr´).AsString:=Editinscricao.Text;
parambyname(´diret´).AsString:=Editdiretor.Text;
parambyname(´cpfdiret´).AsString:=MskEditdiretcpf.Text;
parambyname(´dtfund´).AsString:=Dteditdtfund.Text;
parambyname(´email´).AsString:=Editemail.Text;
try
ExecSQL;
Dmestoque.Transaction.Commit;
except
erro3;
Dmestoque.Transaction.Rollback;
end;
end;