Удаление пробелов

[Control]

Прогоняй через неё.

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;