Quitar espacios en blanco de un archivo.txt en DELPHI

[Yoana]

Hola, buenas tardes, podrían de favor ayudarme en lo siguiente:

Estoy usando Delphi 7.

Tengo un archivo.txt, al cual necesito leer todos sus registros para después sacar unas medias, pero estoy tendiendo problemas por que tiene espacios en blanco y no se como eliminarlos. Así es como esta la información.

1 , 2 0 0 7 , 3 3 , M , 0 , 1
2 , 2 0 0 6 , 0 , M , 0 , 1
3 , 2 0 0 8 , 0 , M , 0 , 1
4 , 2 0 0 8 , 3 5 , M , 0 , 1
5 , 2 0 0 8 , 0 , M , 0 , 1


y es una gran cantidad de registros. Necesito eliminar todos los espacios en blanco que hay entre ellos.
Si me pueden dar ideas de como hacerlo se los agradecería mucho.