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