DelSpace(LocText : Text[30]) Return : Text[30] FOR step := 1 TO STRLEN (LocText) DO BEGIN Chr := LocText[step]; IF NOT(Chr IN [32, 255]) THEN Return := Return + FORMAT(LocText[step]); END;