[XANDER2011]

Всем доброго времени суток! Помогите решить проблему:
Есть 2 формы - на одной заполненный грид, на второй грид и 2 datetimepicker для указания периода. По нажатию кнопки на форме №2 значение ячеек 12-го столбца грида формы №1 проверяется условием – если значение ячейки больше или равно значению пикера №1 и не больше значения пикера №2, то тогда вся строка переносится в грид №2. НО при нажатии на кнопку ничего не происходит.
Возможно в коде я «хомутнул», но никак не могу найти где именно…

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

var   Form18: TForm18;      t1,t3,x,y,temp,k,k1,k3,c,row: integer;      t2,t4,tempstr,f,f1,f2: string;      i, j: Integer; implementation ...... procedure TForm18.Button1Click(Sender: TObject); begin f:=datetostr(form18.DateTimePicker1.Date); f1:=datetostr(form18.DateTimePicker2.date); form18.sg1.RowCount:=2; for k:=2 to form4.sg1.RowCount do for k1:=12 to form18.sg1.RowCount do k3:=2; for k:=2 to form18.sg1.RowCount do //вариант проверки на соответствие №1 if form18.DateTimePicker1.Date=strtodate(form4.sg1.Cells[12,k])then if form18.DateTimePicker2.date=strtodate(form4.sg1.Cells[12,k]) then //вариант проверки на соответствие №2 {if datetostr(form18.DateTimePicker1.Date)>=form4.sg1.Cells[12,k] then if datetostr(form18.DateTimePicker2.date)<form4.sg1.Cells[12,k] then} //вариант проверки на соответствие №3 {if f>=form4.sg1.Cells[12,k] then if f1<form4.sg1.Cells[12,k] then} begin k3:=k3+1; for k1:=12 to form18.sg1.RowCount do begin //c:=1; form18.sg1.Cells[k1,k3]:=form4.sg1.Cells[k1,k]; end; form18.sg1.RowCount:=form18.sg1.RowCount+1; end;

Прошу помощи