Procedures - Delete - FD

var
  ps: IPlanSwift;
  est: IItem;
  itm: IItem;
  rslt: Boolean;
  sect: IItem;
begin
//create the Planswift Interface
ps := coPlanswift.Create;
//Get the Estimating tab
  est := ps.GetItem('Job\Takeoff');
  //Create a new Item
  itm := est.NewItem('Area', 'psDelete Example');
  //Show the property dialog box
  rslt := itm.Edit(true);
  //if ok pressed in dialog box then
  if rslt then begin
    //Create a new Section
    sect := itm.NewSection('psDelete Section');
    //Start Recording
    sect.DoRecord;
  end else begin
    //Eles delete the item
    itm.Delete;
  end;
  //Free Planswift
  ps := nil;