Криво работает добавление..., в 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;

[Beowulf 13th]

Угу. Спасибки!

А как сделать поиск по subitem'ам? А то он у меня ищет только по Caption'ам видимо. Функция такая (тоже слямзенная ]: )

Код

procedure TForm1.bbSearchClick(Sender: TObject);
  var
  lvItem: TListItem;
begin
  lvItem := List.FindCaption(0, edLastName.Text, True, True, False);
    if lvItem <> nil then
      begin
      List.Selected := lvItem;
      lvItem.MakeVisible(True);
      List.SetFocus;
      end
    else ShowMessage('Запись не найдена');

end;