{ TThreadedData }

  generic TThreadedData<T> = record
  public type PT = ^T;
  private
    FData: T;
    FLock: TRTLCriticalSection;
  public
    procedure Init(const AValue: T);
    procedure Done;
    function Lock: PT;
    procedure Unlock;
  end;