Запрос с параметрами на определённую дату

adoquery1.Parameters.ParamByName('data').Value:=datetimepicker1.DateTime;

procedure TForm3.Button1Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.Parameters.ParamByName('RDATA').Value:=datetimepicker1.DateTime;
adoquery1.open;

query.sql.text:='SELECT POL ,RDAT ,(YEAR(:p)-YEAR(RDAT))*12-(MONTH(:p1)-MONTH(RDAT))AS VOZRAST';
query.param.parambyname('p').value:=Date(datetimepicker.datetime);
query.param.parambyname('p1').value:=Date(datetimepicker.datetime);

query.param.parambyname('p').value:=Date(datetimepicker.datetime); 
 
query.param.parambyname('p1').value:=Date(datetimepicker.datetime);

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ADODB, DB, Grids, DBGrids, ComCtrls, ShellApi,excelxp,comobj;
 
type
  TForm3 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.Button1Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.Parameters.ParamByName('p').Value:=datetimepicker1.Date;
adoquery1.open;
 
 
 
end;
 
 
procedure TForm3.Button2Click(Sender: TObject);
begin
shellexecute(self.handle,'explore','D:\delfi',nil,nil,SW_SHOW); //открыть папку с результатом, пока не используется
end;
 
procedure TForm3.Button3Click(Sender: TObject);    //открывает результат в ёксель
var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;
 
ExcelApp:=CreateOLEObject('Excel.Application'); // создает объект
ExcelApp.WorkBooks.add; //новый док
ExcelApp.visible:=true;  // показывает док
 
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'results'; // ИМЯ ЛИСТУ 1
 
for col :=0 to DBGrid1.Columns.Count-1 do
ExcelApp.WorkBooks[1].WorkSheets[1].cells[6,col+2].value:=dbgrid1.fields[col].displaylabel;
 
for row :=1 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row+1;
end;
DBGrid1.DataSource.DataSet.Next;
end;
 
ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,1]:='№пп/Дата';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,2]:=datetostr(now);
 
ExcelApp.WorkBooks[1].WorkSheets[1].visible:=true;
ExcelApp.WorkBooks[1].WorkSheets[2].visible:=false;
ExcelApp.WorkBooks[1].WorkSheets[3].visible:=false;
end;
 
 
end.

adoquery1.close;
adoquery1.Parameters.ParamByName('p').Value:=DateToSTR(datetimepicker1.Date);
adoquery1.open;

query.sqlt.text:='SELECT  pole1,pole2, '+quotedSTR(Yearof(datetimepicker1.Date))+' FROM T1'