怎么为我继承的一个系统空间添加一个属性阿,

Question

TMyEdit = class(TEdit)
private
      { Private-Deklarationen }
      FMyStr: string;
      procedure SetMyStr(Value:string);//设置MyStr属性的值
   protected
      { Protected-Deklarationen }
   public
      { Public-Deklarationen }
   published
      { Published-Deklarationen }
       property MyStr: String read FMyStr write setMyStr;//告诉系统到哪里去读写该属性的值
   end;
....
procedure TMyEdit.SetMyStr(Value:string);
begin
    FMyStr:=Value;
end;
累死我了！
多看看标准控件的源代码