Source position: sqldbpool.pp line 15
type TPoolLogEvent = procedure(
Sender: TObject;
const Msg: string
) of object;