utlLogger: include ThreadID in exception log

uutlLogger.pas

@@ -151,6 +151,7 @@ begin
     result := result + sLineBreak +
     '  Exception: ' + aException.ClassName + sLineBreak +
     '  Message:   ' + aException.Message + sLineBreak +
+    '  Thread:    ' + IntToStr(GetCurrentThreadId) + sLineBreak +
     '  StackTrace:' + sLineBreak +
     '    ' + BackTraceStrFunc(ExceptAddr)
   else