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.

[ecfisa]

Hola Yoana.

Código Delphi [-]
procedure QuitarEspacios(const Archivo: string);
begin
  with TStringList.Create do
  try
    LoadFromFile(Archivo);
    Text:= StringReplace(Text, ' ', '', [rfReplaceAll]);
  finally
    SaveToFile(Archivo);
    Free;
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
  QuitarEspacios('C:\PRUEBA.TXT');

Un saludo.