массивы строк. перенос в таблицы

[deathz0r]

Доброго времени суток. Нужно считывать строки из таблицы ss и проверяла, в какой из других 3х таблиц есть та или иная строка. После нахождения в таблице ss записывается, номер таблицы, в которой найден элемент и строка в этой таблице. данные по 2 таблицам выводит, а по 3 нет, подскажите, если не трудно. Пример кода:

procedure Tform1.sstr;
var
m,j,k:integer;
q,w,e:integer;
a,s,d:integer;
est:integer;
begin
m:=19;
for k:=1 to stringgrid2.RowCount do
 begin
 est:=0;
 j:=1;
  while (j<=m) and (ss[j]<>tr[k]) do Inc(j);
  if j>m  then est:=0 else est:=1;
  if est=1 then
  Stringgrid2.cells[1,j-1]:='(1,'+inttostr(k)+')'
  else
   for q:=1 to stringgrid3.RowCount do
    begin
    est:=0;
    w:=1;
    while (w<=j) and (ss[w]<>id[q]) do Inc(w);
    if w>j  then est:=0 else est:=1;
    if est=1 then
    Stringgrid2.cells[1,w-1]:='(2,'+inttostr(q)+')'
    else
     for a:=1 to stringgrid5.RowCount do
      begin
      est:=0;
      s:=1;
      while (s<=w) and (ss[s]<>lt[a]) do Inc(s);
      if s>w  then est:=0 else est:=1;
      if est=1 then
      Stringgrid2.cells[1,s-1]:='(3,'+inttostr(a)+')'
      end;

[deathz0r]

^^ .