请问大虾:将一个OldList:TStringlist的值赋给newList: TStringList,对newList的更改总会影响到oldList,有没有办法避免这个问题?

Question

public
    { Public declarations }
    oldList: TStringList;
    newList: TStringList;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  oldList := TStringList.Create;
  oldList.Add('1');
  oldList.Add('2');
  oldList.Add('3');
end;procedure TForm1.btn1Click(Sender: TObject);
begin
  mmo1.Lines.Clear;
  mmo1.Lines.AddStrings(oldList);
end;procedure TForm1.btn2Click(Sender: TObject);
begin
  mmo1.Lines.Clear;
  newList := oldList;
  newList.Delete(0);
  mmo1.Lines.AddStrings(newList);
end;

Answer 1

mmo1.Lines.AddStrings(newList.Text);

Answer 2

FormCreate:
  newList := TStringList.Create;
btn2Click:
  newList.Clear;
  newList.AddStrings(oldList);