OutputDebugString(PChar(SysErrorMessage(GetLastError))); 也可以为OutputDebugString再做层函数封装，以更方便的使用： procedure OutputDebugStr(const ADebugInfo: string); begin OutputDebugString(PChar(ADebugInfo)); end;
原文链接：http://blog.csdn.net/funnyfu0101/article/details/6562450
原文：http://www.cnblogs.com/zhrong/p/5666649.html