[AlexGTX]

Прошу помощи у знающих людей, не могу организовать отбор записей в таблице из заданного диапазона дат(DateTimePicker). Вылезает непонятная ошибка при попытке сортировки. Поле Data в таблице типа Date/Time. Фрагмент запроса:

Код:

procedure TForm3.Button4Click(Sender: TObject);
Var
Data1, Data2:string;
begin
  Data1:=DateToStr(DateTimePicker1.DateTime);
  Data2:=DateToStr(DateTimePicker2.DateTime);
with Form3.Query1 do
        begin
        Close;
        SQL.Clear;
        Form3.Query1.Close;
        SQL.Text:='SELECT * FROM OsSklad WHERE Data >= '+Data1+' and Data <='+Data2+'';
        Open;
        end;
end;

Админ: Пользуемся тегами для оформления кода!

Ошибка на рисунке