Procedures - NewPoint - FD

var  
ps: IPlanSwift;
  est: IItem;
  sect: IItem;
  pt: IPoint;
  itm: IItem;
begin
  // Create Planswift Interface
  ps := coPlanswift.Create;
  // Get the Estimating tab
  est := ps.GetItem('Job\Takeoff');
  // Create a new Item
  itm := est.NewItem('Area', 'DoRecord Example');
  // Create a new Section
  sect := itm.NewSection('DoRecord Section');
  // Add 4 points to section to create a box
  sect.NewPoint(0, 0);
  sect.NewPoint(100, 0);
  sect.NewPoint(100, 100);
  sect.NewPoint(0, 100);
  // Show a message that the box has been drawn
  ShowMessage('Box Drawn');
  // Get the 4th point
  pt := sect.GetPoint(3);
  // Set the point 100 px lower on y axis
  sect.SetPoint(3, pt.X, pt.Y + 100);
  // Show that the point has been moved
  ShowMessage('Point 4 has been Moved');
  // Free planswift
  ps := nil;