[Alegun]

Раз без наработок, то тогда вот такой вариант

Код:

 s := '">AnimalProtect v1.6.1</a>';
 s1:= '';
 for i := 1 to Length(s) do if s[i] in ['0'..'9', '.'] then s1:= s1 + s[i];