Tu connais le séparateur ? Si oui tu lis ligne par ligne (avec ReadLn par ex) puis tu balances la ligne dans un TStringList :
list.Text := StringReplace(ligne, separateur, sLineBreak, [rfReplaceAll]);
Et dans ta liste t'as tes éléments.
Il y a moyen de le faire un peu plus proprement (avec des Pos et des Copy en boucle), mais ça dépend de ce que tu veux faire de ces données après
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire