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