Ошибка "Acces violation" в чем может быть причина

[TRIZER]

Здравствуйте, извините если не в тот раздел, но не нашел куда писать

Возникает ошибка Access violation at 0x7c90eddc: write of address 0x00030ff4



Вот код, в котором предполагаю есть ошибка

...
type

 TLexemeType=(ltArithOperation,ltNumber,ltVar,ltFunc,ltLogicalOperaion,ltEnd); //Есть предположение что это каким то образом вызывает ошибку

type Factor = record
FType:TLexemeType;
index:integer;
Lexeme:string[32];
end;

type TFunc= record
N:byte;
Lexeme:string[32];
end;

type TTerm = array[0..10] of Factor;

...

var
  Form1: TForm1;
  FuncList: array of TFunc;
  Errors: array of string;

...

procedure AddError(str:string);
begin
setlength(Errors,length(Errors));
Errors[Length(Errors)-1]:=str;
end;


function GetFactor(Str:string):TTerm;
var
i,i1,index:integer;
Term:TTerm;
begin
//перед заполнением Term я его очищаю от мусора ... который не знаю откуда берется, возможно есть какие то другие способы очистки ... (если есть - то подскажите плиз)
for i:=0 to length(Term) do
begin
Term[i].FType:=ltEnd;
Term[i].index:=0;
Term[i].Lexeme:='';
end;
... //Тут код который заполняет Term значениями, проверил отладчиком - все заполняется правильно, в соответствии с условиями задачи
GetFactor:=Term;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;T:TTerm;
begin
Memo1.Clear;
//Ошибка возникает в последующей строке, то есть при присвоении переменной T значения функции GetFactor
T:=GetFactor(Edit1.Text);
end;

Я начинающий ... и думаю что то с выделением памяти в общем ... если можно - объясните нубу как избегать подобных ошибок, если нужно - могу выложить полный код

[BOBAH13]

for i:=0 to length(Term) do

меняем на

for i:=0 to length(Term) - 1 do

[TRIZER]

Мне ОООЧЕНЬ стыдно
Спасибо за помощь