Не учитываются все данные в TStringList

[BizCray]

Доброе время суток.
Прошу помощи, что бы разобраться в сложившийся проблеме.

Var
tList : TStringList;
i : Integer;

begin
 tList := TStringList.Create;
 tList.Assign(ItemsList);
 i := 0;
 while (i < tList.Count) do
  begin
   if (Pos(UpperCase(Edit1.Text), tList.ValueFromIndex[i]) <> 1) then tList.Delete(i)
    else Inc(i);
  end;
 ListBox1.Items.Assign(tList);
 tList.Free;
 ListBox1.Visible := true;
end;

При трассировке программы данные норм. Функция Pos работает "правильно", но не пойму откуда "пропадает/появляется" первый символ в строке. =(

Среда: Borland Delphi 7
кто хочет попробовать: см. вложения.

Вопрос №2.
может есть решения готовые, а я о них не знаю.
Нужно что бы при вводе первых букв внизу "под вводом" высвечивался список вариантов. (пример, как в поисковых системах).
Спасибо.

[northener]

А с какого перепуга вы решили использовать функцию ValueFromIndex?

[BizCray]

Сообщение от northener

А с какого перепуга вы решили использовать функцию ValueFromIndex?

А что в ней такого страшного и запрещенного?

[northener]

Сообщение от BizCray

А что в ней такого страшного и запрещенного?

Она рассчитана на применение в том случае когда строки списка выглядят как name=value. В противном случае она имеет некий особый алгоритм. Если вам интересно, добавьте 2 мемо на форму и выведите в первый сами строки из вашего стринглиста, а во второй значения ValueFromIndex для этих строк. И сравните.

[BizCray]

Сообщение от northener

Она рассчитана на применение в том случае когда строки списка выглядят как name=value. В противном случае она имеет некий особый алгоритм.

Сделал. То же самое. Эту разницу я уже прочувствовал и до этого.

Сообщение от northener

Если вам интересно, добавьте 2 мемо на форму и выведите в первый сами строки из вашего стринглиста, а во второй значения ValueFromIndex для этих строк. И сравните.

А теперь или я правильно понял:
смотрел описание данной функции Classes.pas
Выходит, что у меня "глотается" первый символ потому-что имя пустое. Я правильно понял? Поэтому залазит на строку?
Поправте, пожалуйста, если не так.

[BizCray]

................

[northener]

Выходит, что у меня "глотается" первый символ потому-что имя пустое. Я правильно понял?

Почти. У вас вообще нет имени и нет символа "=".
Чем вас не устраивает вариант

if (Pos(UpperCase(Edit1.Text), tList.[i]) <> 1) then tList.Delete(i)

?

[BizCray]

Устраивает. Уже переделал.
Хотел понять просто что да как.
Понял, я так думаю, и поэтому тему закрываем.
Спасибо за помощь и уделенное время, что дало результат "пенька для разгона".