delphi 中OutputDebugString 函数的妙用（转载）