Instrução UPDATE errada

Olá pessoal. não entendi pq meu update está errado. os parâmetros estão certos, aliás....são até repetidos do insert que não deu erro. segue então:

with Data_Module.Query_Estoque do
begin
close;
sql.Clear;
sql.Add('UPDATE Estoque SET Cod_Estoque=:A,Nome=:B,Desc=:C,Quant=:D WHERE Cod_Estoque=:A1');
Parameters.ParamByName('A').Value := StrtoInt(Edit_Cod_Estoque.Text);
Parameters.ParamByName('A1').Value := StrtoInt(Edit_Cod_Estoque.Text);
Parameters.ParamByName('B').Value := Edit_Nome_Material.Text;
Parameters.ParamByName('C').Value := Memo_Desc_Material.Text;
Parameters.ParamByName('D').Value := StrtoInt(Edit_QT_Material.Text);
ExecSQL;
Application.MessageBox('Registro Alterado com sucesso!!!', 'Aviso do Sistema', MB_OK);
end;

Agradeço a ajuda pessoal.