Page Comparison

procedure TForm1.psNewItem(Sender: TObject);
var
  ps: IPlanSwift;
  itm: IItem;
  AreaItem: IItem;
  sect: IItem;
begin
//Create Planswift Interface
 ps := coPlanswift.Create;
 //Get the takeoff (Estimating) tab
 itm := ps.GetItem('Job\Takeoff');
 //Create a New Area Item and Show its Properties
 AreaItem := ps.NewItem(itm.GUID,'Area','My Area');
 //Add A Section to the Area
 sect := AreaItem.NewSection('My Area Section');
 //Turn on Record Mode for that section
 sect.DoRecord;
 //Free Planswift Interface;
 ps := nil;
end;