Source position: fpobserver.pp line 71
protected procedure TBaseMediator.SetActive(
const AValue: Boolean
); virtual;