Länge eines Arrays auslesen

[Fussel9]

Hilfe

ich hab nen Array, kann aber seine Länge nicht auslesen... hab aber auch schon ewig nicht mehr mit arrays gearbeitet, hab ich irgendwo nen fehler gemacht, was vergessen?
normaler weise müsste ich doch IrgendeinArray.getLength machen könn...

Delphi-Quellcode:

UNIT mtlreggramm;

interface

//--------------------  ggf Uses-Liste einfügen !  --------------------
//uses ....;
uses mtreggramm ;

type
  TTerm = array[1..26] of String;
  TTermZuNichtT = array[1..26] of TTerm;

type
  tlreggramm = class(treggramm)
  TzNT: TTermZuNichtT;
  Term: TTerm;

  public //Methoden
    function analysiere (pwort: string) : boolean; override;
    function erzeuge : string; override;
   end;

implementation
uses mtstring,sysutils,Classes;
var maxlaenge:integer=100;
//+---------------------------------------------------------------------
//|         tlreggramm: Methodendefinition
//+---------------------------------------------------------------------

//-------- analysiere (public) -----------------------------------------
function tlreggramm.analysiere (pwort: string) : boolean;
var lauf,i,j,k :Integer;
    inhalt,nichtterm: String;
    Temp: TTerm;
  l: Integer;
begin
for i:=1 to length(nichtterminale) do
  begin
    j:=1;
      while not(regeln.isBehind) do
        begin
          inhalt:=(regeln.getItem as TString).GibInhalt;
          nichtterm:=copy(inhalt,0,pos('#',inhalt)-1);
          delete(inhalt,0,pos('#',inhalt));
            if (nichtterm=nichtterminale[i]) then
              begin
                Term[j]:=inhalt;
                inc(j);
              end;
        end;
    TzNT[i]:=Term;
  end;
for lauf:= 1 to length(pwort) do
  begin
    for k := 1 to Length(nichtterminale) do
      begin
        Temp:=TzNT[k];
          for l := 1 to Temp do  //hier will ich Temp.getLength  wird aber rot unterschlängelt
            begin
              //code
            end;
      end;
  end;
end;