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;
{ 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;
newList := TStringList.Create;
btn2Click:
newList.Clear;
newList.AddStrings(oldList);