Page Comparison

procedure TForm1.FormCreate(Sender: TObject);
var
ps:IPlanswift;
  itm,sect: IItem;
begin
ps := coPlanswift.Create;
ps.BeginUpdate;
// Create a new area item
itm := ps.NewItem(ps.GetItem('Takeoff'),'Area','My Test Area');
// Add a Section the item
sect := itm.NewSection('test Section');
// Add Points to the section
sect.NewPoint(0,0);
Sect.NewPoint(10,0);
sect.NewPoint(10,10);
sect.NewPoint(0,10);
//closes the box
sect.NewPoint(0,0);
//End Update
ps.EndUpdate;
end;