No jo, už to je moooc dlouho

Ještě dotaz.
Učelem je projet řadky a vypsat do memo ty, ktere obsahují určite čislo

Když na prazdný řadek vložím toto čislo 12345, funguje to a v memo2 mam 1.
když však je někde ve větě tak ne, proč?
Třeba Pujdu dnes na pivo 12345

for i := 1 to TS.Count-1 do
  if i mod 2 <> 0 then
    begin
    s:= TS[i];
    if pos(s,'56987')>0 then showmessage('nalezeno');
    Memo2.Lines.Add(IntToStr(pos(s,'12345')));