State do DataSource in Edit ou Insert mode com Erro

Pessoal boa noite.,

Eu tenho um cadastro que funciona muito bem obrigado.

O problema é que ao efetivar uma alteração por exemplo, e clico novamente no botão de Modificar novamente, o programa aborta com erro. A mensagem é de que não posso dar Post na minha tabela se não estou no estado de edição ou inserção.

Claro, Logo após a efetivação da transação, o sistema libera o status do DataSource e se eu tentar efetuar um post, vai dar erro mesmo.

Mas então, como posso tratar este erro sem que eu tenha que desabilitar botões?

Segue meu código:

procedure TfrmInformacoesPessoais.btSalvarClick(Sender: TObject);
begin

 DMSisAlma.TBCadInfPessoais.Post;
 DMSisAlma.TBCadInfPessoais.Refresh;
 ShowMessage('Registro efetuado com sucesso!');
 TSInfGerais.Show;
 TSInfGerais.SetFocus;
end;

abraços