delphi源码,用delphi7打开,不会有错