[NumLock]

Код:

procedure UnlistPublishedProperty(ComponentClass: TClass;
  const PropName: String);
var
  APropInfo: PPropInfo;
begin
  APropInfo:=GetPropInfo(ComponentClass, PropName);
  RegisterPropertyEditor(APropInfo^.PropType^, ComponentClass, PropName, nil);
end;

использование:

Код:

procedure Register;
begin
  UnlistPublishedProperty(TLabel, 'Width');
end;