[PhoeniX]

Пока что всё верно, только в последней строчке

Код:

for I := 0 to second.Count - 1 do

Delphi TStringList IndexOf, на первой же странице есть ссылка на ответ. Если не силён в английском - есть на русском, чуть дальше.