Delphi-Quellcode:
{...}
until k=Length(Array);
wird/ist "k" gesetzt?
lass dir alternativ mal nach jedem reapeat in einem memo den status ausgeben.
d.h.
Delphi-Quellcode:
i := 0;repeat
inc(i);
Memo1.Lines.Add(IntToStr(k) + ' / ' + IntToStr(Length(Array[i])));
until k=Length(Array);