Source position: fpobserver.pp line 80
protected procedure TBaseMediator.CheckPropertyName(
AObject: TObject;
const APropertyName: string
);