TInterlocked

type TInterlocked = class

  class function Add();

  class function Exchange();

  class function CompareExchange();

  class function Decrement();

  class function Increment();

  class function BitTestAndSet();

  class function BitTestAndClear();

  class function Read();

end;

TInterlocked

TObject