if your intension is "remove spaces", then um "replace" can do it as showed above.
OriginalStr := Access resulted;
OldValue := ' '; // "2" blank spaces // 2 will catch how many spaces extists!!!
NewValue := ''; // "0" blank spaces
OriginalStr := StringReplace(OriginalStr, OldValue, NewValue, [rfReplaceAll, rfIgnoreCase]);
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3