Hola
No veo el error, intenta esto:
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';
Saludos