Update ProceduresVarios.pas

Una funcion para controlar los valores negativos