这一句的错误怎么修改？
uses jpeg;
var j1,j2:Tjpegimage;
procedure TForm1.Button1Click(Sender: TObject);
begin
j1:=Tjpegimage.Create ;
j2:=Tjpegimage.Create ;

j1.LoadFromFile('f:\redtree.jpg');
j2.LoadFromFile('f:\h1.jpg');

listbox1.Items.AddObject(extractFilename('f:\A.jpg'),tobject(j1));
listbox1.Items.AddObject(extractFilename('f:\B.jpg'),tobject(j2));

end;

procedure TForm1.listbox1Click(Sender: TObject);
var
p:^integer;
begin
image1.Picture.Graphic := TGraphic(listbox1.Items.Objects[listbox1.ItemIndex]) ;

{就是下面这句： 假设p:=@j1;可固定获取这个对象的地址。但要是通过点击列表项变换关联的j1、j2对象，
那么这个语句该怎么写？}
P:=@listbox1.Items.Objects[listbox1.ItemIndex];//[Error] Unit1.pas(56): Variable required
edit2.Text :=inttostr(p^);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
j1.Free ;
j2.Free ;
end;

[解决办法]
既然存后试TObject对象，干嘛不直接使用TObject对象来处理，而用指针，那样用也不正常。
如果交换，就让如同两个普通数字交换一样，只是临时变量为TObject.
[解决办法]
强制转换成整数，再由整数转为指针。