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