一个不解的问题~~关于tlist

Question

procedure TForm1.btn1Click(Sender: TObject);
var
  l: tlist;
  s: TShape;
begin
  l := TList.Create;
  s := TShape.Create(nil);
  l.Add(shp1);   //shp1 是一个已经存在的组件
  s := l.Items[0];
  s.Free;
end;释放的是s，为什么shp1也会没有？

Answer 1

s := TShape.Create(nil);
s是TShape的实例,并分配了内存地址l.Items[0]即是shp1
s:= l.Items[0];
s地址已经指向了shp1的地址,2者指向同一地址啦所以s.free也就把shp1也free掉了

Answer 2

这样啊。。那我要是想释放s，但不释放shp1，通用点的方法应该怎么弄呢？s：=其他 再释放？