[freedomman]

не проверял но должно работать

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i ,r,j:integer;
begin
StringGrid2.RowCount:=2;
r:=1;
for i:=1 To StringGrid1.RowCount do begin]
if (datetostr(StringGrid1.Cells[12,i])>=DateTimePicker1.date)
and  (datetostr(StringGrid1.Cells[12,i])<=DateTimePicker1.date)
then  begin
for j:=0 to StringGrid2.ColCount do
StringGrid2.Cells[j,r]:=StringGrid1.Cells[j,i];
inc(r);
StringGrid2.RowCount:=StringGrid2.RowCount+1;
end;
end;