[lKinGl]

Código del Radiogroup1

Código Delphi [-]
procedure TForm7.RadioGroup1Click(Sender: TObject);
var
buscar:string;
begin
if RadioGroup1.ItemIndex=0 then
edit1.enabled:=true;
edit1.Clear;
dbgrid1.Enabled:=true;
if radiogroup1.ItemIndex=1 then
edit1.enabled:=true;
edit1.clear;
dbgrid1.Enabled:=true;
case RadioGroup1.ItemIndex of
0:edit1.Enabled:=true;
1:edit1.enabled:=true;
end;
end;

Código del edit1 (mi filtro de informacion)

Código Delphi [-]
procedure TForm7.Edit1Change(Sender: TObject);
var
buscar:string;
begin
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;
  Query1.SQL.Clear;
  Query1.SQL.Add(buscar);
  Query1.Active:=True;
  Query1.Open;
  dbgrid1.Columns.Items[0].Width:=50;
  dbgrid1.Columns.Items[1].Width:=200;
  dbgrid1.Columns.Items[2].Width:=90;
  dbgrid1.Columns.Items[3].Width:=60;
  dbgrid1.Columns[0].Title.caption:='Código';
  dbgrid1.Columns[1].Title.caption:='Nombre del Articulo';
  dbgrid1.Columns[2].Title.caption:='PVP';
  dbgrid1.Columns[3].Title.caption:='Existencia';
end;

el error da apenas presiono el radiobutton 3 (Cantidad)=Stkart