Поиск в таблице

[k1r1ch]

Почему эта процедура не работает?

procedure TMainForm.FindChange(Sender: TObject);
var i, i2, x, y: integer;
begin
  if Find.Text <> '' then
    begin
      for x := 0 to 99 do
        for y := 1 to 100 do
          GameList.Cells[x,y] := '';
      Ini := TIniFile.Create(extractfilepath(Application.ExeName) + 'Games.ini');
      Ini.ReadSection('General', StrGrid);
      i2 := 1;
      for i := 1 to StrGrid.Count do
        repeat
        if (StrGrid[i-1])[i] = Find.Text[i] then
          begin
            GameList.Cells[0,i] := StrGrid[i-1];
            GameList.Cells[1,i] := Ini.ReadString(GameList.Cells[0,i], 'Genre', '');
            GameList.Cells[2,i] := Ini.ReadString(GameList.Cells[0,i], 'Dev', '');
            GameList.Cells[3,i] := Ini.ReadString(GameList.Cells[0,i], 'Pub', '');
            GameList.Cells[4,i] := Ini.ReadString(GameList.Cells[0,i], 'Year', '');
          end;
        i2 := i2 + 1;
        until (i2 = length(Find.Text)) OR (i2 > length(Find.Text));
    end;
end;

По идее она должна выводить список записей в зависимости от того, что пользователь ввел. Вводишь А и сразу в таблице появляются только записи на А. Вводишь АБ и записи на АБ.Но на деле вобще ничего не происходит.

[Stilet]

Ну пройдись по шагам отладчиком.