Date between sql запрос

procedure TCoopIskl.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
showmessage('Заполните поля для поиска!')
else
begin
DataModule.ADOQuery3.SQL.Clear;
DataModule.ADOQuery3.SQL.Add('SELECT * FROM IsklChleni WHERE dateiskl between #+Edit1.Text+# and #+Edit2.Text+#');
DataModule.ADOQuery3.Active:=true;
IsklSearch.DBGrid1.Columns[0].Width:=60;
IsklSearch.DBGrid1.Columns[1].Width:=200;
IsklSearch.DBGrid1.Columns[2].Width:=112;
if DataModule.ADOQuery2.IsEmpty then
Showmessage('Ничего не найдено');
end;
end;
 
 
end.

with ADOQuery1 do begin
  Close;
  SQL.Text:='SELECT * FROM IsklChleni WHERE dateiskl BETWEEN :p1 AND :p2;';
  Parameters[0].Value:=dat1.DateTime; //dat1 - TDateTimePicker
  Parameters[1].Value:=dat2.DateTime; //dat2 - TDateTimePicker
  Open;
end;

unit IsklChleni;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DM, SearchIskl, ComCtrls;
 
type
  TCoopIskl = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    dat1: TDateTimePicker;
    dat2: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  CoopIskl: TCoopIskl;
 
 
implementation
 
{$R *.dfm}
 
procedure TCoopIskl.Button1Click(Sender: TObject);
begin
with DataModule.ADOQuery3 do begin
Parameters[0].Value:=dat1.DateTime; //dat1 - TDateTimePicker
Parameters[1].Value:=dat2.DateTime; //dat2 - TDateTimePicker
Close;
SQL.Text:='SELECT * FROM IsklChleni WHERE dateiskl BETWEEN :p1 AND :p2;';
DataModule.ADOQuery3.Active:=True;
IsklSearch.Show;
IsklSearch.DBGrid1.Columns[0].Width:=60;
IsklSearch.DBGrid1.Columns[1].Width:=200;
IsklSearch.DBGrid1.Columns[2].Width:=112;
if DataModule.ADOQuery3.IsEmpty then
Showmessage('Ничего не найдено');
end;
end;
 
end.