Kommischer ERange Error

[PhilmacFLy]

Min DP'ler

Bin grad am programmieren mit Lazarus und bin dabei auf folgendes Problem gestoßen:
Ich bekomme einen ERange Error bei folgender anweisung:

Delphi-Quellcode:

  foo := code[i];
    l := high(changefuncs);
    for k := 0 to l do
    begin
      if (pos(changefuncs[k].Name, foo) > 0) and not newfunc and not //hier kommt der Fehler
        kommentar then
      begin
        while (pos('(', code[j]) = 0) or (pos(');', code[j]) > 0) or
          (pos('if', code[j]) > 0) do
          j := j - 1;
        loadfunc(newfunc, j, tmp, code);
      end;
    end;

und ich hab keine idee woran das liegt, weil ich geh doch nur bis high(changefuncs)
btw: Changefuncs ist vom type state und state ist:

Delphi-Quellcode:

type
  state = record
    startline: integer;
    endline: integer;
    Name: string [30];
  end;

Kann mir da jemand helfen, weil ich keine Idee hab.