Hola
Probemos 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 = ' + (Edit1.text);
Quitando el signo de menor que.
A ver que pasa.
Saludos