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('---------------'); end;
finally
Free;
end;
end;
Pero, por si te interesa, aquí hay otras alternativas:
funcion split de una cadena
Saludos