Stack Overflow

[RobinHood]

Hallo,

ich bekomme bei folgender Funktion einen StackOverflow:

Delphi-Quellcode:

function kunde_nach_nummer(kunden : tKunden;max_index : integer; pkundennummer : string): integer;
var i : integer;
begin
  i := 0;
  repeat
    inc(i);
  until ((kunden[i].kundennummer = pkundennummer) or (i >= max_index));

  if kunden[i].kundennummer = pkundennummer then
    result := i
  else
    result := 0;
end;

nach dem StackOverflow steht der Cursor auf dem "begin", aber warum?
der Aufruf der Funktion sieht folgendermaßen aus:
index := kunde_nach_nummer(kunden,max_index,kundennummer); was vielleicht auch noch wissenswert wäre:

Delphi-Quellcode:

type tKunde = record
                kundennummer : string[50];
                anrede : string[50];
                name1 : string[50];
                name2 : string[50];
                strasse : string[50];
                plz : string[50];
                ort : string[50];
                wochentag : string[2];
              end;
     tKunden = array[1..10000] of tKunde;

Wäre nett wenn mir jemand sagen könnte warum diese Fehlermeldung kommt und warum der Cursor gerade bei dem "begin" stehen bleibt.
Danke schonmal im Vorraus!!!

MfG Marc