procedure TForm1.ListView1Click(Sender: TObject); begin with ListView1 do ShowMessage(ItemFocused.Caption); end;
procedure TForm1.ListView1Click(Sender: TObject); begin with ListView1.ItemFocused do ShowMessage(Caption+ ' '+ Subitems.Strings[0]); end;