[Alexez]

Я написал так

DelSpace(Item : Code[25]) ItemRes : Code[25]
FOR pos:=1 TO STRLEN(Item) DO
BEGIN
str:=COPYSTR(Item,pos,1);
IF str IN ['1','2','3','4','5','6','7','8','9','0'] THEN
ItemRes:=ItemRes+str;
END;