dynamischen Array laden

[Larky]

ja aber die Frage ist wie ich das in meinen array reinbekomme !

HAb es jetzt wie folgt gelöst:

var
i, j, Count: integer;
slDaten: TStringList;
Laengetxt:real;

begin
slDaten := TStringList.Create;
slDaten.LoadFromFile('terminehedrich');
Count := 0;
Edit1.text:=inttostr (sldaten.Count);
Laengetxt:=sldaten.count/133;
for i := 0 to round (Laengetxt) do
for j := 0 to 132 do
begin
Setlength (Oberarray,i+1);
Oberarray[i, j] :=(slDaten[count]);
inc(Count);
end;
slDaten.Free;
end;


Problem nur der gibt mir nen Fehler aus das das Listenmaximum (133) überschritten wurde aber das kann doch gar nicht sein da meine for-SChleife nur bis 132 geht!! Ich krieg hier langsam echt nen Anfall!! AGGRESSIONEN!!!!!