Sugerencias para realizar una actualizacion de un registro en Firebird

[agustinbus]

Claro que si tiene sentido porque da error, mira dejo unas imagenes para que veas, hice un ejemplo rapido.
La primera imagen muestra que me posiciono en el registro con CODIGO = B10003
En el edit de abajo del dbgrid pongo el mismo codigo: B10003


La segunda y tercera imagen muestra que pasa al presionar el boton:




y luego de generarse el error, cada vez q me muevo por la grilla, (se genera el OnDataChange), me arroja el error. El codigo de toda la aplicacion es este:

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.Open;
ZQuery1.Edit;
ZQuery1CODIGO.Value := Edit1.Text;
ZQuery1.Post;

ZQuery1.Cancel;
end;

sin embargo si cambio el codigo por el siguiente:

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.Open;
try
begin
ZQuery1.Edit;
ZQuery1CODIGO.Value := Edit1.Text;
ZQuery1.Post;
end
except
ZQuery1.Cancel;
end;

end;

se soluciona.

Esete error es conocido en MySql y Firebird, pero si por ejemplo lo conecto a una base en Access no es necesario comprobar si se modifico algun dato porq no tira error.