Parsear texto con TString

[ecfisa]

Hola avechuche.

Creo que en este caso es mas simple usar la función ExtractStrings.

Como ejemplo:

Código Delphi [-]
...
var
  i  : Integer;
begin
  with TStringList.Create do
  try
    LoadFromFile('ARCHIVO.TXT');
    for i:= 0 to Count-1 do
    begin
      ExtractStrings(['|'], [], PChar(Strings[i]), ListBox1.Items);
      ListBox1.Items.Add('---------------'); // a fin de resaltar el resultado
    end;
  finally
    Free;
  end;
end;

Pero, por si te interesa, aquí hay otras alternativas: funcion split de una cadena

Saludos