var
i : integer;
s, n : string;
begin
s := '
http://otvet.mail.ru/question/23628746/';
n := '';
for i := 1 to Length(s) do if s[ i ] in ['0'..'9'] then n := n + s[ i ];
end;
-------------------------------
Вышеприведенный код фильтрует строку, оставляя только цифры.
Если цифровых последовательностей несколько или нужно цифры подряд, то нужно парсить.