Delphi 10.2 移动开发LIstView的问题？急急急

[weixin_43788560]

放教一下，Delphi 10.2 使用ListView，显示记录，怎么能获得ListView--ItemAppearance--Item--Text1的值？
我用Toggle DesignMode 设计好布局，然后
var
item:TListviewItem;
... ...
item := listview1.Items.Add;
item.Data['Text1'] :='客户：'+ClientModule1.ClientDataSet1.FieldByName('KHMC2').AsString;
item.Data['Text2'] :='ID：'+ClientModule1.ClientDataSet1.FieldByName('ID').AsString;
数据通过循环把数据输入到Listview 后，后期操作某一记录时无法获得该记录的ID值
请问点击某一记录后，如何获得Text2中的ID值？

[weixin_43788560]

procedure TForm1.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem); begin showmessage(ListView1.Items.AppearanceItem[ListView1.ItemIndex].Data['Text1'].AsString); end;