Делфи,стринггрид,запросы,формы.

[WIDGET1]

Добрый вечер!
У меня есть главная форма.Со стринггридом. По нажатию кнопки должен открыться inputquery, в который вводится номер задания. Всего 3 задания. Сложность не в этом, форма, на которую выводится стринггрид с результатом запроса( все строки, в которых столбец "задание" содержит 1,2 или 3), я не могу написать цикл, который записывает нужные строки в другую форму стринггрид.
На главной форме у меня так:

procedure TGlavn.N8Click(Sender: TObject);
var i,j,stroka,stolb:integer;
n_zad:string;
begin
if inputQuery('Выполненное задание','Введите номер задания',n_zad) then
case strtoint(n_zad) of
1: begin
for j := 1 to stringgrid1.rowcount - 1 do
if stringgrid1.cells[5,j]='1' then
begin
stroka:=j;
zapros.fl3:=true;
zapros.Show; //форма для вывода результата
 end;
end;

Код на второй форме Zapros:

if fl3 then
x:=0;
 begin

   StringGrid1.Cells[0,0]:='№ зачетки';
  StringGrid1.Cells[1,0]:='Фамилия';
  StringGrid1.Cells[2,0]:='Имя';
  StringGrid1.Cells[3,0]:='Отчество';
  StringGrid1.Cells[4,0]:='Вариант';
  for i := 0 to 5 do begin
 ///тра-та-та
  end;
 end;

Вот не могу сообразить как посчитать количество строк получаемых.
И как вообще заполнить стринггрид на форме Zapros. У меня не получается даже не следом друг за другом выводить сьроки, а просто ничего не получается.

[hon]

  for i := 0 to 5 do begin
 ///тра-та-та
  end;

Вместо ///тра-та-та нужно выводить строки .

А количество получившихся строк — 6. Вы же от 0 до 5 считаете. Что находится на месте ///тра-та-та?

[WIDGET1]

Ущербно?

procedure TGlavn.N8Click(Sender: TObject);
var i,j,x:integer;
n_zad:string;
begin
x:=0;
if inputQuery('Выполненное задание','Введите номер задания',n_zad) then
case strtoint(n_zad) of
1: begin
for j := 1 to stringgrid1.rowcount - 1 do
if stringgrid1.cells[5,j]='1' then
begin
zapros.StringGrid1.Cells[0,0]:='№ зачетки';
zapros.StringGrid1.Cells[1,0]:='Фамилия';
zapros. StringGrid1.Cells[2,0]:='Имя';
zapros. StringGrid1.Cells[3,0]:='Отчество';
zapros. StringGrid1.Cells[4,0]:='Вариант';
x:=x+1;
 for i := 0 to stringgrid1.colcount - 1 do
begin
zapros.StringGrid1.Cells[i,x]:=StringGrid1.Cells[i,j];
end;

Простите,если будет удобнее-не i, а j. это стробцов 5. А считаю,до четырех.