Сортировка по словам в делфи

[Д@ш@]

Здравствуйте! подскажите пожалуйста, как можно скрыть только те строки, в которых есть слова "Да", "Нет", чтобы при нажатии checkBox1 процедура выводила только те строки, в которых есть слово "Да", а checkBox2 - "Нет".
У меня скрывает только ячейку, в которой написано "Нет".. а нужно, чтобы скрывал всю строку с этим словом...

procedure TForm1.N12Click(Sender: TObject);
var
  i: Integer;             // переменная вывода столбцов
  j:integer;               // количество строк
  B:  array[1..100]of string;   // массив строк
begin
 if checkBox1.checked=true then  // если отмечено галочкой
        begin                    // то выполняется условие
                            for j:=1 to StringGrid1.rowcount-1  do  //количество строк без заголовка
                            for i:=1 to StringGrid1.colcount  do
                             begin
                                if StringGrid1.cells [7,j]='да' then  b[j]:=StringGrid1.cells [7,j]; //Присвоение массиву строк название курсов

                                 end;
                             for j:=1 to StringGrid1.rowcount-1  do //количество строк минус строка заголовка
                             for i:=1 to StringGrid1.colcount  do
                            StringGrid1.cells [7,j]:=b[j];
                              end;                                                              checkBox1.checked:=false;   // в противном случае
                              checkBox2.checked:=false;
end;