// Выделить цифры из текстовой переменной

[apanko]

По-моему также.

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); //показываем результат.