说明：可能前面几次首发不太准确delphi源码unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics