Page Comparison

procedure TForm1.psPointCount(Sender: TObject);
var
  ps: IPlanSwift;
  est: IItem;
  itm: IItem;
  sect: IItem;
begin
  //Create the Planswift Interface
  ps := coPlanswift.Create;
  //Get the Estimating Tab
  est := ps.GetItem('Job\Takeoff');
  //Create an Area Item
  itm := est.newItem('Area','Point Count Area');
  //Create a Section to the Area
  sect := itm.NewSection('Point Count Section');
  //Create a box on the selected page
  sect.NewPoint(0,0);
  sect.NewPoint(0,200);
  sect.NewPoint(200,200);
  sect.NewPoint(200,0);
  //Show the Point Count
  ShowMessage(intToStr(sect.PointCount));
  //free Planswift Interface
  ps := nil;
end;