EStringListError aufgetreten (delphi7)

[schöni]

Sag mal, onkeldave, Dir haben mehrere hier gesagt, das hier:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var i : integer;
begin
for i := 0 to listbox1.Count  do
    if listbox1.Selected[i] then
    begin
      { nun haben wir in i die nummer der selektierten Zeile
      da Listbox und Playlist eine identische Reihe der Einträge und gleiche Sortierung
      vorweisen, können wir mit dem erhaltenen index den richtigen Eintrag der Playlist
      auslesen. }
      PlayFile(i);
      break;
    end;

zu hoch gezählt wird. Das mit der -1 solltest Du deshalb besser dringend beachten.

for i := 0 to listbox1.Count - 1 do

Wenn die Listbox 8 Einträge hat, werden die von 0 bis 7 gezählt. Listbox.Count hat aber den Wert 8 und überschreite somit das Maximum.