Source position: fpobserver.pp line 221
protected procedure TBaseListMediator.SetSubject(
const AValue: TObject
); override;