como eliminar espacio en blanco de una .....

[Ricomarz]

Hola Buenas tardes, quisiera ver si alguien me puede ayudar con un problema que tengo al leer un archivo .txt y separar el contenido de este, Mi problema es el siguiente: Tengo un archivo .txt el cual tiene 7 columnas, entre cada columna hay varios espacios en blanco, trate de hacer un explode para que me separe las columnas si encuentra un espacio en blanco, pero no lo hace ya que el numero de espacios en blanco varia de columna a columna.......

asi llamo el explode:

If FileExists ('E:\LeerArchivo\uabcdili.txt') Then //veo si existe el archivo
begin
AssignFile (Fichero,'E:\LeerArchivo\uabcdili.txt');
Reset (Fichero);
While not Eof(Fichero) Do
Begin
Readln(Fichero,Linea);
StringArray:=Explode(' ',Linea); // lo agrego a un arreglo
....
....
....
end;
CloseFile (Fichero);
end;

espero me puedan ayudar ...........

Por favor enviarme sus respuestas a ricomarz@hotmail.com .
Saludos .........