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;