procedure TForm1.bbAddClick(Sender: TObject);
  var ListItem : TListItem;
begin
  ListItem := List.Items.Add;
  ListItem.Caption := edLastName.Text;

  ListItem.SubItems.Add(edName.Text);
  ListItem.SubItems.Add(edOtch.Text);
  ListItem.SubItems.Add(edPhone.Text);
  ListItem.SubItems.Add(edAddress.Text);
  ListItem.SubItems.Add(cbDate.Text + ' ' + cbMounth.Text + ' ' + edYear.Text);
  ListItem.SubItems.Add(edNotes.Text);
end;

function FindListViewItem(lv: TListView; const S: string; column: Integer): TListItem; 

var 
  i: Integer; 
  found: Boolean; 
begin 
  Assert(Assigned(lv)); 
  Assert((lv.viewstyle = vsReport) or (column = 0)); 
  Assert(S <> ''); 
  for i := 0 to lv.Items.Count - 1 do 
  begin 
    Result := lv.Items[i]; 
    if column = 0 then 
      found := AnsiCompareText(Result.Caption, S) = 0 
    else
      if column > 0 then 
        found := AnsiCompareText(Result.SubItems[column - 1], S) = 0 
      else 
        found := False; 

    if found then Exit; 
  end; 

  // No hit if we get here
  Result := nil;
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  lvItem: TListItem; 

begin 
  // ищем текст из edit1 в столбце subitem[0]
  lvItem := FindListViewItem(ListView1, Edit1.Text, 1); 

  // если нашли - показываем
  if lvItem <> nil then begin 

    ListView1.Selected := lvItem; 
    lvItem.MakeVisible(True); 
    ListView1.SetFocus; 

  end; 
end;

var
  pX, pY: integer;

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Запоминаем координаты, где была нажата мышка
  pX := X; pY := Y; // Чтобы не мучаться с переводом в локальные координаты для ListView
end;


// Ну, и собственно обрабатываем двойное нажатие:
procedure TForm1.ListView1DblClick(Sender: TObject);
var
  li, root: TListItem;
  i, curr_left: integer;
begin
  // Сначала пробуем найти итем непосредственно, это сработает только для первого столбца
  li := ListView1.GetItemAt(pX, pY);
  if assigned(li) then ShowMessage(li.Caption)
  else begin

    // если мы здесь - это признак того, что дабл-клик был не на первом столбце...
    // тогда делаем вот что: пробегаем по всем длинам заголовков столбцов, и
    // накапливаем их длину до тех пор, пока она не превысит координату X нажатия мыши
    // 
    i := 0; curr_left := ListView1.Columns[0].Width;
    while (curr_left + ListView1.Columns[i].Width < pX) do begin
      inc(curr_left, ListView1.Columns[i].Width);
      inc(i);
    end;

    // теперь находим, какой элемент является "корнем" для искомого SubItem-а
    root := ListView1.GetItemAt(10, pY);

    // Если "корень" найден, и у него есть столько "детей" - то
    // печатаем Caption соответствующего "ребенка"
    if (assigned(root)) and (i < root.SubItems.Count) then showmessage(root.SubItems[i]);

  end;
end;