Textdatei bis zum ersten Komma in ListBox laden

[r4in]

Hallo Leute,

ich bin gaaanz neu in Delphi und habe ne warscheinlich lächerliche Frage.
Ich möchte den Inhalt einer Textdatei in eine Listbox laden, jedoch pro Zeile der Textdatei
nur bis zum ersten Komma. Also pro Zeile steht in meiner *.txt
"Artikel, Preis,EKP"
usw... (ohne die " "). Jetzt möchte ich in die Listbox jeweis immer nur "Artikel" geladen haben,
also jede Zeile runter aber nur bis zum ersten Komma.

Wie stell ich das am geschickstesten an?

danke für eure Hilfe =)