Nechapu?
Načtený řadek do s je string.
A hledaný řetězec je take string i když to jsou čisla.
Třeba toto
for i := 1 to 60 do
if i mod 2 <> 0 then
begin
s:= TS[i];
if pos(s,'blbec')>0 then showmessage('Našel jsem!');
Memo2.Lines.Add(IntToStr(pos(s,'blbec')));
Pokud je na řadku blbec tak to najde.Pokud je kdo je blbec, tak už ne.