var

  ps: IPlanSwift;

  itm: IItem;

  prop: IPropertyObject;

  est: IItem                

begin

 //Create planswift Interface

    ps := coplanswift.Create;

    //Get the Estimating Tab

    est := ps.Getitem('Job\Takeoff');

    //get Ps Property Example Item if exists

    itm := est.GetItem('PS Property Examples');

    //Delete It

    if not varisclear(itm) then begin

      ps.deleteItem(itm.guid);    

    end;

    //Create a new Item

    itm := est.newItem('Part','PS Property Examples');

     

    //PROPERTY NAME EXAMPLE

    //Create a new Property                        

    prop := itm.NewProperty('Property Name Example','',pttext);

    //Set Property Formula to Property Name

    prop.Formula := prop.Name;

    //Set to API group

    prop.Group := 'API EXAMPLES';

 

    //Show The Item Properties Box

    itm.Edit(true);

    //Free the planswift interface

    ps := nil;

end;