Source position: fpobserver.pp line 56
type TMediatingEvent = procedure(
Sender: TObject;
var Handled: Boolean
) of object;