TTypedMap

type TTypedMap = class(TBaseMap)

protected

  function InternalSetData();

  procedure ReleaseData(); override;

public

  procedure Add();

  constructor Create();

  destructor Destroy; override;

  function HasId();

  function GetData();

  function GetDataPtr();

  function SetData();

end;

TTypedMap

TBaseMap

TPersistent

TObject