Fórum Erro ao dar Update tabela #283191

Pessoal,

Estou com um probleminha e nao consegui resolver, quando estou executando o comando UPDATE esta aparecendo o seguinte erro:

class EDATABASEERROR with message ´UNASSIGNED CODE´.

estou usando esta rotina com FireBird 1.5 e Delphi7:

var

vcodigo : integer;
vnome : string;
vcpf : string;
vdatanasc : TDatetime;

vcodigo := strtoint(edcodigo.text);
vnome := ednome.text;
vcpf := mecpf.text;
vdatanasc := strtodatetime(medtnasc.Text);

SQL.Add (´Update CLIENTES´);
SQL.Add (´Set´);
SQL.ADD (´Nome_CLi=:vnome,CPF_Cli=:vcpf,dtnasc_cli=:vdatanasc´);
SQL.ADD (´ Where ´);
SQL.ADD (´Codigo_Cli = :vcodigo´);
params[0].asstring := vnome;
params[1].asstring := vcpf;
params[2].asdatetime := vdatanasc;
params[3].asinteger := vcodigo;
ExecSQL;

Quando eu faco o INSERT funciona bem, mas com UPDATE nao estou
conseguindo executar.

ate +

obrigado