функция AnsiContainsStr

[USIXA]

Помогите разобраться с кодом, нужно чтобы эта функция брала на проверку слова из вот этого массива

const a: array[1..5] of String=('VAR','END','BEGIN','FUNCTION','IF');

 if 	AnsiContainsStr(SynEdit1.Lines[i], 'a[i]')  then begin
	    ListView1.Items.BeginUpdate;
      ListView1.Items.Add;
      id:=id+1;
      ListView1.Items[id-1].Caption:=IntToStr(id);
      ListView1.Items[id-1].SubItems.Add('[Строка: '+IntToStr(i+1)+'] - зарезервированные слова не должны заглавными буквами');
      ListView1.Items.EndUpdate;
    end;

[Человек_Борща]

Неправильное обращение к массиву a, надо так:

 if 	AnsiContainsStr(SynEdit1.Lines[i], a[i])  then begin

[USIXA]

Так тоже не работает, вообще не находит