Не могу найти ошибку в коде

function SearchForText(RichEdit: TRichEdit): Boolean;
var
StartPos, Position, Endpos: Integer;
begin
for i:=1 to count do
begin
StartPos := 0;
with RichEdit do
begin
Endpos := Length(RichEdit.Text);
Lines.BeginUpdate;
while FindText(slova[i], StartPos, Endpos, [stMatchCase])<>-1 do
begin
Endpos := Length(RichEdit.Text) - startpos;
Position := FindText(slova[i]+' ', StartPos, EndPos, []); //stMatchCase
Inc(StartPos, Length(slova[i]+' '));
SetFocus;
SelStart := Position;
SelLength := Length(slova[i]);
SelAttributes.Style:=[fsBold];
SelAttributes.Color:=clYellow;
 
end;
Lines.EndUpdate;
end;
end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
try
i:=1;
ADOQuery1.Active := False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Predikat WHERE TipOtn = "'+ DBComboBox1.Text+'"');
ADOQuery1.Active:=True;
while(ADOQuery1.Eof <> true) do
begin
slova[i]:= ADOQuery1.Fields[1].AsString;
i:=i+1;
slova[i]:= ADOQuery1.Fields[2].AsString;
i:=i+1;
slova[i]:= ADOQuery1.Fields[3].AsString;
count:=i;
i:=i+1;
ADOQuery1.Next;
end;
 
end;
end;
Пример. вот одно предложение в оригинале такое: 
1. Процессор есть центральное устройство компьютера.
в размеченном такое:
Процессор{процессор=S,муж,неод=им,ед|=S,муж,неод=вин,ед}
есть{есть=V,несов=инф,пе|есть=S,сред,неод=им,ед|=V,нп=наст,ед,изъяв,2-л,несов|=V,нп=наст,ед,изъяв,3-л,несов }
центральное{центральный=A=им,ед,полн,сред|=A=вин,ед,полн,сред}
устройство{устройство=S,сред,неод=им,ед|=S,сред,неод=вин,ед}
компьютера{компьютер=S,муж,неод=род,ед}

procedure TForm1.btn1Click(Sender: TObject);
var i, StartPos, Position, Endpos: Integer;
begin
try
i:=0; 
while(ADOQuery1.Eof <> true) do
begin
SetLength(words,i+3);
words[i]:= ADOQuery1.Fields[1].AsString;
Inc(i);
words[i]:= ADOQuery1.Fields[2].AsString;
Inc(i) ;
words[i]:= ADOQuery1.Fields[3].AsString;
count:=i;
Inc(i) ;
ADOQuery1.Next;
end;
 
for i:=0 to High(words) do
begin
StartPos := 0;
with TextRichEdit do
begin
Endpos := Length(TextRichEdit.Text);
Lines.BeginUpdate;
while FindText(words[i],
StartPos, Endpos, [stMatchCase])<>-1 do
begin
Position := FindText(words[i]+' ',
StartPos, EndPos, [stMatchCase]);
Endpos := Length(TextRichEdit.Text) - startpos;
Inc(StartPos, Position+Length(words[i]));
SetFocus;
SelStart := Position;
SelLength := Length(words[i]);
SelAttributes.Style:=[fsBold];
SelAttributes.Color:=clYellow;
if Position<>-1 then
AddSelWord(Position, Words[i]);
end;
Lines.EndUpdate;
end;
end;
except
on e:Exception do
end;
end;

procedure TForm1.CreateVWords;
var i,p,p2: integer; s: string;
begin
{ ТУТ ТОЖЕ ТОЛЬКО НАБРОСОК ПРОЦЕДУРЫ ДЛЯ ПРИМЕРА...
допишешь если надо будет}
for i:=0 to RichEdit1.Lines.Count-1 do
begin
s := RichEdit1.Lines.Strings[i];
p := pos('=',s);
if copy(s,p+1,1)='V' then
begin
p2 := pos('{',s);
s := copy(s,p2+1,p-p2-1);
SetLength(VWords, Length(VWords)+1);
VWords[High(VWords)] := s;
end;
end;
end;

procedure AddSelWord(pos: integer; word: string);
procedure CreateWordsBase;
function CheckType(word: string): byte;
procedure CheckOffers;
function CheckOfferForV(s: string): integer;
procedure CreateVWords;

// Добавление слова в массив выделенных слов ( которые закрасили )
procedure AddSelWord(pos: integer; word: string);
// загрузка базы слов
procedure CreateWordsBase;
// проверка типа слова (существительное, глагол)
function CheckType(word: string): byte;
// проверка всего текста
procedure CheckOffers;
// проверка предложения на предмет нахождения в нем глагола
function CheckOfferForV(s: string): integer;
// создание массива глаголов
procedure CreateVWords;

procedure TTE_F.CreateVWords; // создание массива глаголов
var i,p,p2: integer; s: string;
begin
{ ТУТ ТОЖЕ ТОЛЬКО НАБРОСОК ПРОЦЕДУРЫ ДЛЯ ПРИМЕРА...
допишешь если надо будет}
for i:=0 to MASK_RE.Lines.Count-1 do
begin
s := Mask_RE.Lines.Strings[i]; 
p := pos('=',s); //в размеченном тексте находит =
if copy(s,p+1,1)='V' then // копирует в тексте ???
begin
p2 := pos('{',s); // поиск { в тексте
s := copy(s,p2+1,p-p2-1); // ? копирует....
SetLength(VWords, Length(VWords)+1);
VWords[High(VWords)] := s;
end;
end;
end;

procedure TTE_F.CreateVWords; // создание массива глаголов
Так как проверка пошаговая показывает, что при обращении этой процедуры к 
function TTE_F.CheckOfferForV(s: string): integer;
var i: integer;
begin
result := 0;
for i:=0 to High(VWords) do —-----проверяет и всё, остальное не выполняется. 
if pos(AnsiUpperCase(VWords[i]), AnsiUpperCase(s))<>0
then Inc(result);
end;