Listview保存数据的问题

[progray]

恳请各位大哥帮忙看看，我真是想不明白了。
情况如下：TFileShellInfo是我自己定义的一个记录；PTFileShellInfo是指向该结构的指针；现在我想在Listview中添加该记录的数据，利用AddData过程完成，但在ListViewFile的双击事件中却怎么也取不出数据。
procedure TForm1.AddData(FileInfo:TFileShellInfo);
var
AddList:TListItem;
tmd: TFileShellInfo;
begin
AddList := ListViewFile.Items.Add ;
with FileInfo do
begin
Addlist.Caption :=FileName ;
AddList.SubItems.Add(sSize);
AddList.Data := @FileInfo;
end;
end;

procedure TForm1.ListViewFileDblClick(Sender: TObject);
var
sTpath:string;
TmpItem:TListItem;
pp:PTFileShellInfo;
begin
if ListViewFile.Selected <> nil then
begin
TmpItem := ListViewFile.Selected;
pp := PTFileShellInfo(TmpItem.Data);
Editing := pp^.FullName;
ShowMessage(Editing);
end;
end;

我对这个问题一直是稀里糊涂，恳请各位能将相关内容明示！

[haoco]

应该是这种学法的，我以前写TTreeView时差不多是这样子的，你在仔细检查你的代码：比如Editing都没有定义

[cgh1970]

up

[progray]

我已发现，原来pp没有new一下 ：（