procedure TfmMain.Button1Click(Sender: TObject);
var
  col:TListColumn;
begin
  ListView1.ViewStyle:=vsReport;
  col:=ListView1.Columns.Add;
  col.Caption:='title';
end;    procedure TfmMain.KeypanelClick(Sender: TObject);
var
  aItem:TListItem;
  pData:PString;
begin
  aItem:=ListView1.Items.Add;
  aItem.Caption:='test'   IntToStr(aItem.Index);
  new(pData);
  pData^:='value'  IntToStr(aItem.Index);
  aItem.Data:=pData;
end;    procedure TfmMain.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  pData:PString;
begin
  pData:=PString(Item.Data);
  Showmessage(pData^);
end;

引言: TListbox.Items 因為是 TStrings 無法提供此功能

1.建立ListBox 的Items
Var
  pData:PString;  // 借用 chris_shieh 兄的變數名稱 
begin
  new(pData);
  pData^:='A001';
  ListBox1.Items.AddObject('A',TObject(pData));
  new(pData);
  pData^:='A236';
  ListBox1.Items.AddObject('B',TObject(pData));
  new(pData);
  pData^:='A222';
  ListBox1.Items.AddObject('C',TObject(pData));
end;    2.在 ListBox.OnClick 事件中,反應Objects的值
procedure TForm1.ListBox1Click(Sender: TObject);
Var
  pData:PString;
begin
  If ListBox1.ItemIndex <> -1 Then Begin
    pData:=PString(ListBox1.Items.Objects[ListBox1.ItemIndex]);
    Showmessage(pData^);
  End;    end;