[AlexandrV]

Код:

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

ошибку выдает ругается на not