Textdatei bis zum ersten Komma in ListBox laden

[r4in]

Und angenommen, ich mächte nur jede zweite Zeile in die ListBox1 laden?
Das müsste doch mit einer Zeile Code machtbar sein?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var sl: TStringList;
    zeilennr: integer;
begin
  OpenDialog1.Execute;
  Edit3.Text:= Opendialog1.FileName;
  sl:=TStringList.Create;

 try
    sl.LoadFromFile(Edit3.Text);  //Datei in Stringliste laden
    for zeilennr:=0 to sl.Count-1 do begin  //Schleife über alle Zeilen, Zählung
                                    

end;
  finally
    sl.free; //Objekt wieder freigeben


ListBox1.Items.LoadFromFile(Edit3.Text);

Kann das jemand vervollständigen? Also dass ich praktisch nur ungerade Zeilen importieren (Zeile 1, 3, 5, 7....)