VirtualDAC
This type is used for the TCustomDAConnection.OnConnectionLost event.
DBAccess
TConnectionLostEvent = procedure (Sender: TObject; Component: TComponent; ConnLostCause: TConnLostCause; var RetryMode: TRetryMode) of object;