Source position: uib.pas line 972
type TVerboseEvent = procedure(
Sender: TObject;
Message: string
) of object;