TMonitor

type TMonitor = record

public

  class procedure SetDefaultSpinCount();

  class function GetDefaultSpinCount;

  class procedure Enter();

  class procedure Exit(); overload;

  class function TryEnter(); overload;

  class function Wait();

  class procedure Pulse(); overload;

  class procedure PulseAll(); overload;

  property DefaultSpinCount: LongInt; [rw]

end;