【调试】OutputDebugString

OutputDebugString(PChar(SysErrorMessage(GetLastError)));

也可以为OutputDebugString再做层函数封装，以更方便的使用：

procedure OutputDebugStr(const ADebugInfo: string);
begin
  OutputDebugString(PChar(ADebugInfo));
end;

原文链接：http://blog.csdn.net/funnyfu0101/article/details/6562450