Break through the Delphi 7.0 programming example fifty