Error al grabar

[CHiCoLiTa]

Ya que nos ponemos a dejarlo bonito, vamos a controlar los estados de los botones como es debido

Código Delphi [-]
procedure TModuloDatos.TblDetproductoDataChange(Sender: TObject;
  Field: TField);
begin
     if (TblDetproducto.state = dsedit) or
        (TblDetproducto.state = dsinsert) then
     begin
          Form4.Modificar.Enabled := True;
     end
     else
     begin
          if Assigned (Form4) then
          begin
               Form4.Modificar.Enabled := False;
          end;
     end;
end;