Problemas con el delimitador de un TStringList

[Velia]

Chicos abusando de su buena predisposición, acudo para que me den una ultima mano (espero)

Estoy utilizando la función ExtractStrings de esta forma

Código Delphi [-]
ExtractStrings(['|'], [#32], PCHAR(slFile[i]), slLinea);

pero cuando estoy leyendo un archivo plano con este formato x ejemplo

0 1 2 3 4
xxx|xxxx| |xxxx|xxxx
xxx|x xx|xxxx |xxxx|xx
xx|xxxx| |xxxx|


cada vez que quiero leer el contenido de los campos tengo que indicarle la posición y solo cuenta las posiciones que tienen contenido como por ejemplo la primera vez me va a leer la posiciòn 2 = xxxx

Como puedo solucionar esto ya que tengo la versión 7 de delphi y no cuento la función STrictDelimiter ??

Gracias nuevamente

[[coso]]

Hola velia, yo tiraria por lo directo, aunque seguro que hay maneras mas elegantes:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
        sl1, sl2 : TStringList;
        i : integer;
begin
        sl1 := TStringList.Create;
        sl2 := TstringList.Create;
        if not Opendialog1.execute then exit;
        sl1.LoadFromFile(Opendialog1.Filename);
        sl1.text := stringreplace(sl1.text,#32,'-espacio-',[rfIgnorecase,rfReplaceAll]);
        sl1.commatext := stringreplace(sl1.text,#124,', ',[rfIgnorecase,rfReplaceAll]);
        sl2.commatext := sl1.commatext;
        sl2.text := stringreplace(sl1.commatext,'-espacio-',' ',[rfIgnorecase,rfReplaceAll]);
        for i := 0 to sl2.count - 1 do showmessage(sl2[i]);
        sl1.free;
        sl2.free;
end;

lo he hecho a lo rapido, seguro que se puede optimizar. saludos.