TThreadInfo = record
  Next: PThreadInfo;
  ThreadID: Cardinal;
  Active: Integer;
  RecursionCount: Cardinal;
end;

struct TThreadInfo {
  PThreadInfo Next;
  unsigned ThreadID;
  int Active;
  unsigned RecursionCount;
};