Hola de nuevo, utilizando la función ExtractStrings ya no utilizarias ni delimiter ni delimiterText, te pongo un ejemplo.
Código Delphi
[-]
ExtractStrings(['|'], [' '], PCHAR(slFile[slFile.Count-1]), slLinea);
las líneas que puse en rojo en mi anterior codigo estarían demas, en vez de ellas utilizas este ultimo codigo.
Saluditos