Фильтр дат в таблице между DateTimePicker1.DateTime и DateTimePicker2.DateTime

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Menus, Vcl.ExtCtrls,
  Vcl.Grids, Vcl.DBGrids, IBX.IBDatabase, IBX.IBQuery, IBX.IBCustomDataSet,
  IBX.IBTable, Vcl.StdCtrls, Vcl.Imaging.jpeg, Vcl.Mask, DBCtrlsEh, Vcl.ComCtrls,
  System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.EngExt,
  Vcl.Bind.DBEngExt, Data.Bind.Components, Data.Bind.DBScope;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    IBTable1: TIBTable;
    IBQuery1: TIBQuery;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button3: TButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses Unit2, Unit3, Unit4;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
IBTable1.Insert;
Form2.Show;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Show;
end;
 
[I]procedure TForm1.Button3Click(Sender: TObject);
begin
IBQuery1.SQL.Text:='SELECT * FROM BAZA WHERE Datav BETWEEN :Date1 AND :Date2';
IBQuery1.ParamByName('Date1').AsDatetime:=DateTimePicker1.DateTime;
IBQuery1.ParamByName('Date2').AsDatetime:=DateTimePicker2.DateTime;
IBQuery1.Open;
end;[/I]
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Form4.Show;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
if IBTable1.state in [dsedit, dsinsert] then IBTable1.Post;
Form1.Close;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
IBTable1.Filtered:=false;
IBTable1.Filter:=Combobox1.Text + ' LIKE ' + #39 + Edit1.Text + '%' + #39;
IBTable1.Filtered:=true;
end
else IBTable1.Filtered:=false;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
IBTable1.Insert;
Form2.Show;
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
Form3.Show;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
IBTable1.Delete;
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
if IBTable1.state in [dsedit, dsinsert] then IBTable1.Post;
Form1.Close;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
IBQuery1.Active:=false;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT * FROM otkaz_vid WHERE datavid  BETWEEN :D1 AND :D2');
IBQuery1.ParamByName('D1').AsDatetime:= DateTimePicker1.Date;
IBQuery1.ParamByName('D2').AsDatetime:= DateTimePicker2.Date;
IBQuery1.Active:=true;
DataSource1.DataSet:=IBQuery1;
end;