Remova literais booleanos de comparações para melhorar a legibilidade.
if var = true then ... if var = false then ...
if var then ... if not var then ...