TPoints2

type TPoints2 = class

public

  constructor Create;

  destructor Destroy; override;

  function IndexOf();

  function Add();

  procedure Remove();

  procedure RemoveAll;

  procedure CopyFrom();

  procedure AddFrom();

  function GetEnumerator;

  property Count: Integer; [rw]

  property Items []: PPoint2; default; [r]

end;

TPoints2

TObject