» Delphi: TStringList.IndexOf не работает

Помогите
Не понимаю почему не работает поиск
Какой-то бред...не понимаю в чем проблема

есть два тестовых
list1:
1
2
3

list2:
1
3

в итоге должен получить файл
list3
11
2
33

Делаю так

Код:
list1.LoadFromFile('c:\list1');
list2.LoadFromFile('c:\list2');

for i := 0 to list1.Count - 1 do
begin
tmpstr:=copy(list1[i],1,20);
indx:=list2.IndexOf(tmpstr);
if indx>0 then
list3.Add(list1[i] + ' ' + list2[indx])
else
list3.Add(list1[i]);
end;

list3.SaveToFile('c:\list3');

mfn9
ты ищешь первые 20 символов, поэтому строка полностью и не совпадает.
и не indx>0, a indx>=0

Спасибо!