...
procedure TForm1.eProductoChange(Sender: TObject);
begin
if RadioGroup1.ItemIndex <> -1 then
begin
qProducto.Close;
qProducto.SQL.Clear;
qProducto.SQL.Add('SELECT * FROM PRODUCTO');
qProducto.SQL.Add('WHERE ESTADO = :STATE');
qProducto.SQL.Add('AND NOMBREPRODUCTO LIKE :NAME');
qProducto.ParamByName('STATE').Value := 1 - RadioGroup1.ItemIndex; qProducto.ParamByName('NAME').AsString := '%' + TEdit(Sender).Text + '%';
qProducto.Open;
end;
end;