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