Try using & instead of &&
If you want to add bits in you should logical OR - |
Life is much better in Pascal. This what sets do in a highly optimised way:
type tOptions = (none,one,two,three,quitter);
tOptionSet = set of tOptions;
var Options : tOptionSet;
Options := []; // empty set
Options := Options +[one];
Options := Options + [two];
Options := Options + [Quitter];
You could also do this with Options := Options + [one,two,quitter];
You can do set compliment, exclusion, intersection, difference and comparison. But quite simply:
if quitter in Optionset then ByeBye;
I won't drone on. Happy New Year!
-- Jim DO IT FASTER, EASIER AND BETTER WITH AppGameKit FOR PASCAL