brute force algorithm

change the attached code so that: 1. I don't need to enter 'allowed solution integers', as my variables are all binary (and I don't want to count the number of my variables, too) 2. carefully fix all possible memory leaks 3. The current code compiles with Delphi 5 and must stay that way.