Програма проверки скорость печатания

[ChEaTeR-abc]

Пишу программу для проверки скорости печатания.Есть текст, который нужно написать(каждое слово текста есть в массиве), есть Edit.После ввода очередного слова при нажатии пробела текст из Edit'а сверяется со следующим по очереди элементом массива.Если они совпадают то это слово в RichEdit'e выделяется зеленым, если нет - красным.После этого Edit очищается.Вот что я написал:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  I:integer;
begin
  IF Key=#32 THEN
    IF Edit1.Text=Texts[C] THEN
      begin
        RichEdit1.SelText;
        SearchText(RichEdit1, Texts[C]);
        RichEdit1.SelAttributes.Color:=clGreen;
      end
    ELSE
      begin
        SearchText(RichEdit1, Texts[C]);
        RichEdit1.SelAttributes.Color:=clRed;
      end;
    Edit1.Text:=''
end;


function TForm1.SearchText(RichEdit: TRichEdit;
  SearchText: string): boolean;
var
  StartPos, EndPos, Pos: integer;
begin
   StartPos := 0;
   with RichEdit do
   begin
      EndPos := Length( Text );
      Lines.BeginUpdate;
      while FindText( SearchText, StartPos, EndPos, [stMatchCase] ) <> -1 do
      begin
         EndPos := Length( Text ) - StartPos;
         Pos := FindText( SearchText, StartPos, Endpos, [stMatchCase] );
         Inc( StartPos, Length( SearchText ) );
         SetFocus;
         SelStart := Pos;
         SelLength := Length( SearchText );
         Break;
      end;
      Lines.EndUpdate;
   end;
end;

Небольшие пояснения к коду:
Texts - массив со словами текста
C - переменная, указывающая сколько слов уже введено и какой элемент массива нужно проверять при следующем нажатии пробела


Код не работает, не могу понять почему.Ошибок при компиляции нету, но при нажатии пробела ничего не происходит.Помогите написать рабочий код

PS.Добавил полный исходник

[NeshSoft]

на вскидку не увидел где С увеличивается на 1

[evg_m]

при нажатии пробела текст из Edit'а сверяется со следующим по очереди элементом массива.

Edit1.Text=Texts[C]

здесь Edit1.Text текст включает пробел
а здесь Texts[C] пробела нет

[NeshSoft]

Сообщение от evg_m

Edit1.Text=Texts[C]

здесь Edit1.Text текст включает пробел
а здесь Texts[C] пробела нет

Неа, при KeyPress не включается, событие происходит до включения символа в текст

[ChEaTeR-abc]

NeshSoft, забыл про увеличение C, но здесь проблема явно не в этом.Добавил Inc(C);, ничего не изменилось.
Сейчас попробую ещё раз проследить переменные в дебаге

Добавил:почему-то перед сравнением C=количество слов в тексте, хотя перед этим я обнуляю её.
При дебаге заметил ещё одну проблему:в массиве перед каждым словом стоит символ #0