Quitar espacios en blanco de un archivo.txt en DELPHI

[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.