Banco de Dados não atualiza.

procedure TfrmCores.SpeedButtonBotaoGravarClick(Sender: TObject);
begin
  if ValidaCampos then// joga a função criada aki
    begin
       SpeedButtonBotaoNovo.Enabled    := True;
       SpeedButtonBotaoDeletar.Enabled := True;
       Dados.ibtCores.Post;// Gravar

       Dados.IBTransBanco.CommitRetaining;  // IBTransaction <<<<<<<<<<<<<< acrescentei apenas essa linha de código

       ibAuxCores.Close;// Fechar a ibquery auxibCores (Forum Dev Media)
       ibAuxCores.Open;// Abri a ibquery auxibCores  (Forum Dev Media)
       Dados.ibtCores.Last;

       DesabilitaCampos;

       ShowMessage ('Registro Gravado com Sucesso');
    end
     else
      begin
        ShowMessage ('Erro ao Gravar, verifique os campos obrigatórios!');
      end;
end;