Source position: fpobserver.pp line 73
protected procedure TBaseMediator.SetSubject(
const AValue: TObject
); virtual;