Prova questo (non ho Lazarus sotto le mani e non posso provare se funziona):
a := 'aaa bb cc ';
b := StringReplace(a, ' ', '', [rfReplaceAll]); // b = 'aaabbcc'
Per la conversione da stringa a numero c'č StrToInt() se ho capito bene a cosa ti serve. Ovviamente se passi valori non numerici alla funzione, ti restituirā un errore
Oppure piu' generale
While Pos(' ', S) > 0 Do Delete(S, Pos(' ', S), 1);