По-моему также.
Код:
textfrom:='-?/ 123CE4N5A6'; //это типа передан параметр.
IF textfrom='' then //проверка на пустоту строки.
exit;
textto:=''; //сюда будет помещен результат
FOR iii:=1 to STRLEN(textfrom) do //строка это массив типа Char.
IF textfrom[iii] in ['0','1','2','3','4','5','6','7','8','9'] then
//проверяем каждые элемент массива, на вхождение в интересующий нас набор символов.
textto+=format(textfrom[iii]); //при положительном результате добавляем его к результирующей строке.
message(textto); //показываем результат.