Array-Problem

[Mysterio08]

Also ich habe die Schleife jetzt noch um eine Zeile ergänzt:

Delphi-Quellcode:

for i := 1 to Zahl - 1 do
      begin
        SetLength(Teiler, i+1);
        Teiler[i] := Zahl mod i;
        if Teiler[i] = 0 then ListBox_Teiler.Items.Add(IntToStr(i));
      end;

Jetzt klappt es wunderbar.
Danke!