Delphi function Daquan.doc