TSpinWait¶

type
  TSpinWait = record
    procedure Reset;
    procedure SpinCycle;
    class procedure SpinUntil(const aCondition: TSpinFunction); overload;
    class function SpinUntil(const aCondition: TSpinFunction; 
                        aTimeout: Cardinal) : Boolean; overload;
    class function SpinUntil(const aCondition: TSpinFunction; 
                        const aTimeout: TTimeSpan) : Boolean; overload;
    property Count: Integer; {r}
    property NextSpinCycleWillYield: Boolean; {r}
  end;