Во первых есть функция Trim, которая удаляет лишние пробелы и непечатаемые символы.
Ну а удаление пробелов если надо своя функция:
Код:
function MyTrim(S: String): String;
var i: Integer;
begin
Result := S;
for i:=1 to Length(Result) do
if(Result[i] = ' ') then
Delete(Result, i, 1);
end;
Функция очень простая, думаю объяснений не надо...
Циклом пробегаем по всем символам строки, и, если находим пробел, удаляем его из результата...