如何释放上一个函数getmem?

Question

这10个字节难道就只能丢掉?
  public
    list: tlist;
    { Public declarations }
    procedure p(a: tlist);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.p(a: tlist);
var p1: PAnsiChar;
begin
  getmem(p1, 10);
  FillChar(p1^, 9 + 1, 0);
  p1 := PAnsiChar('1234567890');
  a.Add(p1);
end;procedure TForm1.Button1Click(Sender: TObject);
var p1: string;
  p2: PAnsiChar;
  asd: Real;
begin
  p(list);
  p2 := list.Items[0];
  showmessage(p2);
  //list.Delete(0);
//  list.Remove(0); // freemem(p2);
  list.Clear;
  list.Free;
end;

Answer 1

Getmem fillchar 不要，'1234567890'这就是pchar

Answer 2

事实上这个不是问题,这代表了随便搞点数据进去,关键是
怎么避免add给Tlist freemem会释放掉数据
或者说是想个办法让我能freemem