DateTimePicker1 и ADOQuery

procedure TForm4.Button2Click(Sender: TObject);
begin
with DataModuleSQL.ADOQuery1 do begin
close;
DataModuleSQL.ADOQuery1.SQL.Clear;
DataModuleSQL.ADOQuery1.SQL.Add('SELECT *');
DataModuleSQL.ADOQuery1.SQL.Add('FROM Shum');
DataModuleSQL.ADOQuery1.SQL.Add('WHERE ');
DataModuleSQL.ADOQuery1.SQL.Add ('data_p BETWEEN ''' +
FormatdateTime('mm/dd/yyyy', DateTimePicker1.Date) +''' AND ''' +
  FormatdateTime('mm/dd/yyyy', DateTimePicker2.date)+'''');
 DataModuleSQL.ADOQuery1.SQL.Add('ORDER BY data_p');
open;
end;

 ADODataSet1.Insert;
    ADODataSet1.FieldByName ('field2').AsString := formatdatetime('mm/dd/yyyy', datetimepicker1.datetime);
  ADODataSet1.Post;

DataModule2.ADOQuery1.SQL.Add(' WHERE Data BETWEEN :d1 AND :d2 ');
ADOQuery1.Parameters.ParamByName('d1').Value:=DateTimePicker1.Date;
ADOQuery1.Parameters.ParamByName('d2').Value:=DateTimePicker2.Date;

ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('insert into shum(data_p) values (:N)');
ADOQuery2.Parameters.ParamByName('N').Value:=DateTimePicker1.Date;
ADOQuery2.ExecSQL;
Qshum.Close;
Qshum.Open;

procedure TForm4.Button2Click(Sender: TObject);
begin
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('insert into shum(nomer_protokola) values (:N)');
ADOQuery2.Parameters.ParamByName('N').Value:=Edit1.Text;
ADOQuery2.SQL.Add('insert into shum(data_p) values (:N)');
ADOQuery2.Parameters.ParamByName('N').Value:=DateTimePicker1.Date;
ADOQuery2.ExecSQL;
Qshum.Close;
Qshum.Open;

ADOQuery2.Parameters.ParamByName('N1').Value:=Edit1.Text;
ADOQuery2.Parameters.ParamByName('N2').Value:=DateTimePicker1.Date;