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