Page Comparison

procedure TForm1.psNewItemEX(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.NewItemEx(itm.GUID,'Area','My Area',True);
 //Check if item was canceled
 if AreaItem <> nil then begin
 //Add A Section to the Area
 sect := AreaItem.NewSection('My Area Section');
 //Turn on Record Mode for that section
 sect.DoRecord;
 end;
 //Free Planswift Interface;
 ps := nil;
end;