1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  SplitValues: TStringList;
begin
  SplitValues := TStringList.Create;
  try
    SplitValues.Delimiter := '&';
    SplitValues.StrictDelimiter := True;
    SplitValues.DelimitedText := YourCurrentLine;

    // und hier hast du in SplitValues jetzt die Liste der Einträge in der Zeile drin

  finally
    SplitValues.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm2.Button5Click(Sender: TObject);
Var F: TextFile;
  Count2: Integer;
  nummer, zeile, Y: string;
   Split: TStringList;
begin

ListBox1.Visible := true;
ListBox1.Clear;

Count2 := 0;
  nummer := combobox1.Text;


AssignFile(F, 'frage'+nummer+'.txt');
FileMode := fmOpenRead;
Reset(F);
   Split := TStringList.Create;
        Split.Delimiter := '&';
    Split.DelimitedText := Y;

While not EoF(F) do Begin

  Inc(Count2);
ReadLn(F, Y);
   Listbox1.items.add(Split[1]);


End;
CloseFile(F);

  label2.caption := 'Es sind '+inttostr(Count2)+' Fragen der Schwierigkeitsstufe '+nummer+' vorhanden.';

 end;