[freedomman]

Код:

if ((form18.DateTimePicker1.Date)>=strtodate(form4.sg1.Cells[12,k]) and (form18.DateTimePicker2.Date<=strtodate(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;