TScoped

type TScoped = record

public

  class operator initialize(TScoped)();

  class operator finalize(TScoped)();

  class operator assign(T):TScoped();

  class operator assign(TScoped):T();

  procedure Assign();

  function Swap();

  function Get;

end;