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.