str med chr(10) til array

Jeg har en lang string med flere linier i adskildt af en <Character 10 = line-feed character>. Det kunne se sådan ud:
str := \'del1 | del2 | del3 | del4\'
Hvis jeg skriver stringen ud i en message dialog bliver den på fire linier. Men hvis den bliver skrevet ud i en listbox eller stringgrid kommer hele stringen selvfølgelig til at stå i den første plads i kontrollen (dvs. 0\'te plads) med hver delstring adskildt af |.
Spørgsmålet er: hvad er den nemmeste måde at få str lagt over i et array. Der må skulle loop igennem str indtil der ikke er flere | tilbage i str. Hvert loop fyldes så over i arrayet.
/Jakob