[AlexandrV]

Как сделать функцию удаления всех символов по аналогии как эта

Код:

Function DeleteNumber(Text:String):String;
const
  D = ['0'..'9'];
var
  i : Integer;
begin
  for i := Length(Text) downto 1 do begin
    if Text[i] in D then Delete(text, i, 1);
  end;
  Result:=Text;
end;

Проблема в том что функция будет вызываться даже если в строке нет символов так что в функции нужно делать проверку есть ли символы в строке короче удалять все символы но оставить только цифры по аналогии как сделана 1вая и чтобы проэкт не завис