Parsear texto con TString

[avechuche]

Gracias ecfisa, funciona perfectamente. Ahora viene otra duda (Soy muy nuevo en esto)
Yo no lo quiero poner en un ListBox, quiero poner esos dos valores en cada columna de mi listbox
Hice lo siguiente

Creo el TStringList antes de entrar al "While" que recorre el ".txt"

Código Delphi [-]
arrayColumnas := TStringList.Create

Llamo a la funcion

Código Delphi [-]
ExtractStrings(['|'], [], PChar(S), arrayColumnas)
// Donde "S" es cada linea del ".txt" y arrayColumnas es del tipo TStringList.

Después recorro "arrayColumnas" y agrego los valores correspondientes a las columnas de mi ListView.
El problema esta que siempre me agrega la primer linea del ".txt" al ListView. Si tengo un ".txt" asi

1|Gonzalo
2|Pedro
3|Sofia

El ListView me devuelve

1|Gonzalo
1|Gonzalo
1|Gonzalo

Tengo que hacer esto

Código Delphi [-]
arrayColumnas := TStringList.Create

dentro del While asi resetea arrayColumnas ?

Osea lo hice y anda perfecto, pero está bien aplicado? porque me da que esta mal crear el TStringList cada vez que cambio la linea.