TLockGuard¶

type
  TLockGuard<T: TSynchroObject = class(TObject)
  procedure Acquire;  virtual;
  procedure Release;  virtual;
  WaitFor;
end
> = record
    obj: T;
    class operator initialize(var hdl: TLockGuard);
    class operator finalize(var hdl: TLockGuard);
    procedure Init;
  end;