Fórum key violation!!!!! Me Ajudem #187799

Como faço para tratar este terrível erro?
Me dê um exemplo.
Usei o seguinte código:

if frm_usuarios.tag=0 then
begin
with sql do
begin
close;
sql.Clear;
sql.Add(´INSERT INTO usuarios (usuario, nome, cargo, senha ) values´);
Sql.Add(´(:1, :2, :3, :4)´);
Params[0].AsString := editusuario.Text;
Params[1].AsString := editnome.Text;
Params[2].AsString := editcargo.Text;
Params[3].AsString:= editsenha.Text;
prepare;
ExecSQL;
end;
ButCancelarClick(Nil);
end
else
begin
with sql do
begin
sql.Clear;
sql.Add(´update usuarios set usuario=:1, nome=:2, cargo=:3, senha=:4 ´);
sql.add(´where usuario=:1´);
Params[0].AsString := editusuario.Text;
Params[1].AsString := editnome.Text;
Params[2].AsString := editcargo.Text;
Params[3].AsString:= editsenha.Text;
prepare;
ExecSql;
end;
Close;
end;

Obrigado pela atenção!