Unit: edbcomps

TEDBStatusMessageEvent = procedure (Sender: TObject; const
      StatusMessage: String) of object

This type is used for the TEDBSession OnStatusMessage, TEDBDatabase OnStatusMessage, TEDBQuery OnStatusMessage, and TEDBStoredProc OnStatusMessage events.