[lKinGl]

Disculpen por no poner el código antes tengo este código que funciona con 3 radiobuttons en un radiogroup y cuando selecciono uno muestra los resultados obtenidos en un dbgrid

Código Delphi [-]
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= 10';
  end;