Фильтр в БД координат по оси X, Y

procedure TForm1.CheckBox3Click(Sender: TObject);
var
  minValue, maxValue: Double; // Изменяем тип на Double для работы с десятичными дробями
begin
  if CheckBox3.Checked then
  begin
    try
      minValue := StrToFloat(Edit1.Text); // Используем StrToFloat для десятичных чисел
      maxValue := StrToFloat(Edit2.Text);
      ADOQuery1.Filter := '[КоординатыX] >= ' + FloatToStr(minValue) + ' AND [КоординатыX] <= ' + FloatToStr(maxValue); // Используем FloatToStr для преобразования обратно в строку
      ADOQuery1.Filtered := True;
    except
      on E: EConvertError do
      begin
        ShowMessage('Неверный формат числа в интервале');
        CheckBox3.Checked := False;
      end;
    end;
  end
  else
    ADOQuery1.Filtered := False;
end;

begin
ADOQueryGrp.Close;
if CheckBox1.Checked then begin
  if (Trim(Edit2.Text) <> '') and (Trim(Edit3.Text) <> '') and (Trim(Edit4.Text) <> '') and (Trim(Edit5.Text) <> '') then begin
    ADOQueryGrp.SQL.Text := 'select * from Grp where ID in (select ID_grp from Hrng where КоординатыY between :y1 and :y2 and КоординатыX between :x1 and :x2) ORDER BY ID';
    var y1, y2, x1, x2: double;
    if (not TryStrToFloat(Edit2.Text, y1)) or (not TryStrToFloat(Edit3.Text, y2))
    or (not TryStrToFloat(Edit4.Text, x1)) or (not TryStrToFloat(Edit5.Text, x2)) then begin
      ShowMessage('Неверный формат числа!');
      Exit;
    end;
    ADOQueryGrp.Parameters.ParamByName('y1').Value := y1;
    ADOQueryGrp.Parameters.ParamByName('y2').Value := y2;
    ADOQueryGrp.Parameters.ParamByName('x1').Value := x1;
    ADOQueryGrp.Parameters.ParamByName('x2').Value := x2;
  end
  else begin
    ShowMessage('Пожалуйста, введите значения в оба поля КоординатыY и КоординатыX.');
    Exit;
  end;
end
else begin
  ADOQueryGrp.SQL.Text := 'select * from Grp ORDER BY ID';
end;
ADOQueryGrp.Open;
end;