Procedure TComplejo.PonCadE(n:string); var error:longint; Begin error:=PonCad(n); if error<>0 then raise EDatosInvalidos.Crear('Error datos no validos ingresados',error) End;