TPointerMap

type TPointerMap = class

protected

  function GetData();

  procedure SetData();

  function Exists();

  function Delete(); virtual;

public

  destructor Destroy; override;

  function Add();

  function Remove();

  procedure Clear;

  function Contains();

  function Find();

  property Data []: PData; default; [rw]

  property Count: Integer; [r]

end;

TPointerMap

TObject