Fórum Gravação de registro #380436

Turma, utilizo delphi 2007 + mysql 5.0. Estou com problemas para gravar "atualizações no registro". Tenho um botão "editar" que faz um edit na tabela. Após as devidas alterações tenho o botão "gravar" que possui o código que segue abaixo. Algumas alterações não consigo efetivá-las, apesar de parecer que tudo funcionou bem.   Segue o código do botão gravar:   procedure TformCadProdutos.BtnGravarClick(Sender: TObject);
var
  intCodigoProduto: integer;
begin
  inherited;
    if myDataModule.TbProdutos.state in [dsedit,dsinsert] then
    begin
      try
        if chrModo = 'I' then
        begin
          myDataModule2.TbControle.Edit;
          myDataModule2.TbControleCodigo_interno.AsInteger :=
                myDataModule2.TbControleCodigo_interno.AsInteger + 1;
          myDataModule2.TbControle.post;
          myDataModule2.TbControle.ApplyUpdates(-1);
          intCodigoProduto := myDataModule2.TbControleCodigo_interno.AsInteger;
          myDataModule.TbProdutoscodigointerno.AsInteger := intCodigoProduto;
        end;
          myDataModule.TbProdutos.Post;
          myDataModule.TbProdutos.ApplyUpdates(-1);
          Mensagem('Alterações serão gravadas...');
          chrModo := ' ';
          MsgStatus('Dados gravados com sucesso...');
      except
          Mensagem('Não foi possível efetuar a gravação dos dados!');
      end;
    end
    else
      Mensagem('Não há alterações a serem gravadas !');     bloquearcampos(true);
    Movefoco;
end;