Delphi 7 classic problem analysis source code