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