TSpinLock

type TSpinLock = record

public

  constructor Create();

  procedure Enter;

  procedure Exit();

  function TryEnter();

  property IsLocked: Boolean; [r]

  property IsOwnedByCurrentThread: Boolean; [r]

  property IsLockedByCurrentThread: Boolean; [r]

  property IsThreadTrackingEnabled: Boolean; [r]

end;