delphi的一个公用函数库