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