[@Rafa3L]

Код:

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