[lKinGl]

intenté con este código pero nada!

Código Delphi [-]
var
buscar,valor:string;
begin
valor:=inttostr(10);
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<=valor "';
end;