[*Caro*]

Hola Velia, como te dijeron puedes utilizar STrictDelimiter pero que viene en versiones posteriores a Delphi 7, sino lo tuvieras puedes utilizar la función ExtractString.

Código Delphi [-]
 slFile.LoadFromFile('D:\wpaboent_p14.txt'); //cargo el archivo 
 for i:=0 to slFile.Count-1 do //Lee por línea
 begin
   cadena:='';
   ExtractStrings(['|'], [#32], PCHAR(slFile[i]), slLinea);

   for j:=0 to slLinea.Count-1 do
   begin
      cadena := cadena+' '+slLinea[j];
      showmessage(cadena);
   end; // end for j
 end;// end for i

Saluditos