关于属性编辑器的问题

Question

按照书上的内容做了一个属性编辑器但我不知道怎样将在属性编辑器中输入的内容赋给相应的属性（书上讲的是String，但我的属性是TStringList类），我的代码：
procedure TStringLine.Edit;
begin
  inherited;
  with TfmLines.Create(Application) do
  begin
    Memo1.Lines:=TStrings(GetValue);  //这句出错
    if ShowModal=mrOK then
    begin
      SetValue(Memo1.Lines.Text);
    end;
    Free;
  end;
end;
各位同道一定要帮帮我啊

Answer 1

试试:procedure TStringLine.Edit;
begin
  inherited;
  with TfmLines.Create(Application) do
  begin
    Memo1.Lines.Assign(TStrings(GetValue));
    if ShowModal=mrOK then
    begin
      SetValue(Memo1.Lines.Text);
    end;
    Free;
  end;
end;

Answer 2

再试试:
procedure TStringLine.Edit;
begin
  inherited;
  with TfmLines.Create(Application) do
  begin
    Memo1.Lines.Text:=TStrings(GetValue).Text;
    if ShowModal=mrOK then
    begin
      SetValue(Memo1.Lines.Text);
    end;
    Free;
  end;
end;