Фильтрация по диапазону

[xsaroo]

Все привет.
Вообщем есть бд (в Access) в ней таблица с полем год_издания(тип числовой) нужно организовать фильтрацию по диапазону который пользователь пишет в edit1 и edit2 использую такой код

procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.ADOQuery1.SQL.Clear;
Form3.ADOQuery1.SQL.Add('SELECT * FROM [Алфавитный] WHERE [Год_издания] BETWEEN ''%'+Edit1.Text+'%''and ''%'+Edit2.Text+'%''');
Form3.ADOQuery1.Active:=True;
end;

Но выдает ошибку "несоответствие типов данных в условии отбора"
Помогите пожалуйста
P.S использую adoquery , adoconnect ,data sourse.

[Yurk@]

procedure TForm3.Button1Click(Sender: TObject);
begin
  Form3.ADOQuery1.Close;
  Form3.ADOQuery1.SQL.Text := 'SELECT * FROM [Алфавитный] WHERE [Год_издания] BETWEEN :data1 AND :data2';
  Form3.ADOQuery1.Parameters.ParamByName('data1').Value := StrToInt(Edit1.Text);
  Form3.ADOQuery1.Parameters.ParamByName('data2').Value := StrToInt(Edit2.Text);
  Form3.ADOQuery1.Open;
end;

[xsaroo]

Спасибо большое)

[xxbesoxx]

Сообщение от Yurk@

procedure TForm3.Button1Click(Sender: TObject);
begin
  Form3.ADOQuery1.Close;
  Form3.ADOQuery1.SQL.Text := 'SELECT * FROM [Алфавитный] WHERE [Год_издания] BETWEEN :data1 AND :data2';
  Form3.ADOQuery1.Parameters.ParamByName('data1').Value := StrToInt(Edit1.Text);
  Form3.ADOQuery1.Parameters.ParamByName('data2').Value := StrToInt(Edit2.Text);
  Form3.ADOQuery1.Open;
end;

Почему (Edit2.Text) Я думаю что боле удобно (DateTimePicker.Date)

[Yurk@]

потому что

таблица с полем год_издания(тип числовой)