Source position: db.pas line 2231
type TCloseErrorEvent = procedure(
Sender: TObject;
aError: Exception
) of object;