不成熟的代码 (delphi)

上传的附件 TestHIPS.rar