List Index Out of Bounds

[Flips]

Hi @ all Delphi-Coder.

Ein Kollege von mir wollte einen MP3-Player haben der auf dem PC möglichst wenig Ressourcen verbraucht. Deshalb wollte ich diesen in Delphi für ihn schreiben. Eine Routine sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var    i: integer;
begin

 if OpenDialog1.Execute then
  ListBox1.Items.LoadFromFile(OpenDialog1.Filename);
 for i:=0 to ListBox1.Count do
  begin
       if copy(ListBox1.Items[i],0,1) = '#' then
    ListBox1.Items.Delete(i);
  end;
end;

Wie ihr vielleicht erkennen könnt soll der Code folgendes machen.
Er soll eine Datei zeile für Zeile absuchen und jede Zeile die mit # anfängt löschen. Wofür das ist ist egal.

Jedenfalls zeigt Delphi an dieser Stelle
     if copy(ListBox1.Items[i],0,1) = '#' then immer die Exception: List Index Out of Bounds(X) //x ist eine Zahl

Woran liegt das?

Ach und, die Dateien sind nach dem Weiterlaufen lassen des Programmes trotzdem genauso wie sie es sein sollten in der ListBox.

Danke für die Antworten

Flips