ComBoBox中addObject函数的内存释放问题？？？
procedure TForm1.Button1Click(Sender: TObject);
var tmp1:string;
tmp2:^string ;
begin
new(tmp2);
tmp1 := '1 ';
tmp2 ^:= 'abc ';
CbBox1.Items.AddObject(tmp1,TObject(tmp2^));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to CbBox1.Items.Count-1 do
if CbBox1.Items.Objects[i] <> nil then
begin
Dispose(pstring(CbBox1.Items.Objects[i]));
end;
end;
上述语句中，一执行到Dispose就出错，怎么回事？？？

[解决办法]
CbBox1.Items.AddObject(tmp1,TObject(tmp2^)); ->
CbBox1.Items.AddObject(tmp1,TObject(tmp2));
[解决办法]
这里的问题
CbBox1.Items.AddObject(tmp1,TObject(tmp2));