详细的源代码,采用delphi6编写。