使用ItemIndex属性。

值为-1表示未选择。

摘自文档：
读取ItemIndex以确定选择了哪一项。列表中的第一项的索引为0，第二项的索引为1，依此类推。如果未选择任何项，则ItemIndex的值为-1。如果List控件支持多个选定项，则ItemIndex是具有焦点的选定项的索引。

使用Selected项的Index属性

if lvClients.Selected <> nil then
  index := lvClients.Selected.Index;

在单击事件()上，您还可以到达包含子项的列：

TListview(sender).items[TListview(sender).itemindex].subitems[1]);

您必须将其强制转换为：TListViewItem(ListView1.Selected).Index，例如：

procedure TfrmMain.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin

  { Old usage was like this:
    // Label1.Text := ListView1.Selected.Text;
  }
  // Now we have to cast it as such:

  Label1.Text := TListViewItem(ListView1.Selected).Index;

  // New usage of TListViewItem's selected item properties
  {
    TListViewItem(ListView1.Selected).ButtonText;
    TListViewItem(ListView1.Selected).Text;
    TListViewItem(ListView1.Selected).Index;
    TListViewItem(ListView1.Selected).Detail;
   ...
  }
end;