Ayuda busqueda de case usando radiogroup

[ecfisa]

Hola.

Estas mezclando peras con manzanas, lo último nada tiene que ver con el RadioGroup de la consulta inicial.

Lo que estas intentando ahora es una búsqueda incremental y normalmente se la realiza en el evento OnChange de un cuadro de edición, ejemplo:

Código Delphi [-]
procedure TForm1.eProductosChange(Sender: TObject);
begin
  qProducto.Close;
  qProducto.SQL.Text := 'SELECT * FROM PRODUCTO WHERE NOMBREPRODUCTO LIKE :NAME';
  qProducto.ParamByName('NAME').AsString := '%' + TEdit(Sender).Text + '%';
  qProducto.Open;
end;

Saludos