procedure Tarticulos.tbuscarChange(Sender: TObject);
begin
    filtro:='%'+tbuscar.Text+'%';
    if todosarticulos.Checked then vertodos:=1 else vertodos:=0;
    qarticulosfinal.Close;
    qarticulosfinal.open;
end;

procedure Tarticulos.todosarticulosClick(Sender: TObject);
begin
    if todosarticulos.Checked=true then
    begin
        vertodos:=1;
        qarticulosfinal.Close;
//        qarticulosfinal.SQL.Clear;
//        qarticulosfinal.SQL.add('select * from articulosf order by descripcion asc');
        qarticulosfinal.Open;
    end else
    begin
        vertodos:=0;
        qarticulosfinal.Close;
//        qarticulosfinal.SQL.Clear;
//        qarticulosfinal.SQL.add('select * from articulosf where activo=1 order by descripcion asc');
        qarticulosfinal.Open;
    end;
end;

end.