Error Firebird sin Explicacion , Demasiado Raro

[hot1974]

Ya lo hice mira el resultado,

TForm1.ghIBTable1BeforeClose($A06628)
TDataSet.DoBeforeClose
TDataSet.SetActive(False)
TIBCustomDataSet.SetActive(False)
TghIBTable.SetActive(???)
TIBCustomDataSet.DoBeforeTransactionEnd($A06A10)
TIBBase.DoBeforeTransactionEnd
TIBTransaction.EndTransaction(TACommit,True)
TIBTransaction.BeforeDatabaseDisconnect($A05CF4)
TIBDatabase.InternalClose(True)
TIBDatabase.ForceClose
TIBDatabase.TimeoutConnection($A05FB8)
TIBTimer.Timer
TIBTimer.WndProc((275, 1, 0, 0, 1, 0, 0, 0, 0, 0))
StdWndProc(1573384,275,1,0)
TApplication.ProcessMessage((1573384, 275, 1, 0, 2419671, (489, 440)))
TApplication.HandleMessage
TApplication.Run
Project1

he mirado la ventana del cpu y no hay ninguna instruccion que cierre la tabla , esto sigue siendo muy raro

Gracias por tu ayuda