Криво работает добавление..., в TListView Опции

[Beowulf 13th]

Есть список. List: TListView.

В него слямзенной функцией добавляем из нескольких полей текст. Добавляет очень криво. В Item он добавляет сначала пустую строку потом на следующей введенный текст, а в SubItem наоборот. Что делать не понятно О_О

Заранее спасибо.

Код

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

  List.AddItem(edLastName.Text, pointer(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;

[volvo]

Могу показать, как можно определить тот Caption, на котором был Double-Click (вообще GetItemAt не работает с SubItems, а работает только с первым столбцом ЛистВью, элементы которого можно выделить мышью, но с помощью вот такого финта можно это добавить):

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;

Можно используя этот код вместо ShowMessage вызывать, например, диалоговое окно, которое будет запрашивать новое значение, и после ввода менять соотв. Caption... Не пробовал, но по-моему должно работать...