Property - ScriptParameters - FD

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 SCRIPT FUNCTIONS
    //Create Fromula String
    formula :=  'if not VarisClear(itm) then ShowMessage(itm.name) else ShowMessage(' + chr(39) + 'Item Not Found' + chr(39)+ ');';
    //Create Property
    prop := itm.NewProperty('Execute Script Example',formula,ptscript);
    //Set Script Parameters
    prop.ScriptParameters := 'itm';
    //Set Script Type to method
    prop.ScriptType := stMethod;
    //Set Script Language to Pascal
    prop.ScriptLanguage := slPascal;
    //Execute Script
    prop.ExecuteScript('');
    //set to API group
    prop.Group := 'API EXAMPLES';
 
    //Show The Item Properties Box                        
    itm.Edit(true);
    //Free the planswift interface
    ps := nil;
end;