Listbox Error

[draGo]

Huhu Dp,

kaum ist das eine Problem gelöst, so kommt ein anderes
Also... ich habe (z.b.) 5 Tabs mit jeweils einem Memo und einem Label drin. (Alle erst zur Laufzeit erstellt!)
Jetzt möchte ich mit einer Schleife prüfen welche Labels in welchem Tab die Caption "changed" haben.
Gedacht hatte ich mir das so:

Delphi-Quellcode:

  for i := 0 to Pagecontrol1.PageCount do begin
    if TLabel(Pagecontrol1.Pages[i].Controls[0]).Caption = 'Changed' then begin
      form4.ListBox1.Items.Add(Pagecontrol1.Pages[i].Caption);
    end;
end;

Damit soll jedes Tab, welches den Label mit "changed" enthält in die Listbox geladen werden.
Erhalten tu ich jedoch nicht die Listbox sondern einen "List Index Out of Bonds" error

Was mache ich falsch, bzw wie kann ich es richtig machen? ^^

mfg
draGo