[@Rafa3L]

Код:

i:= pos('1234', List.Text);
if i > 0 then s:= Copy(List.Text, i, 9);