Поиск в StringGrid

[Retiree]

Помогите!! У меня есть три компонента StringGrid и один edit. Нужно задать в edit значение которое нужно найти. Он должен искать в 3 StringGrid, если нашел в j-ой строке, то начинает искать в первом StringGrid по j-ому столбцу элементы =1, если нашел, то из StringGrid2 должен в мемо вывести строки номера которых равны номерам строк где элементы =1. Вобщем вот так запутано. Помогите пожалуйста как это реализовать.

[evg_m]

примерная схема поиска.

findstr1:=-1; // что пока в Grid1 мы ничего не нашли
for j:=0 to grid1.rowcount -1 do begin // смотрим по строкам Grid1
  if grid1.cells[0, j] =Edit1.text then begin //проверяем только нулевой столбец таблицы
     findstr1:=j; // отмечаем найденное (запоминаем номер строки)
     break; // дальше искать не будем
  end;
end;
findstr2:=-1; // что пока в Grid2 мы ничего не нашли
if findstr1 >=0 then begin  // а нашли ли мы что нибуль в Grid1
  // далее аналогично Grid1 
   for j:=0 to grid2.rowcount-1 do begin
      if grid2.cells[findstr1, j]='1' then begin // тколько проеверяем найденный findstr1 столбец и текст сравнения другой
         findstr2:=j;
      end;
  end;
end;