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