TBaseMap

type TBaseMap = class(TPersistent)

protected

  procedure InternalAdd();

  function InternalGetData();

  function InternalGetDataPtr();

  function InternalGetId();

  function InternalSetData();

  procedure ReleaseData(); virtual;

public

  constructor Create();

  procedure Clear;

  function Count;

  function Delete();

  destructor Destroy; override;

end;

TBaseMap

TPersistent,IFPObserved

TObject