Procedures - EditScript - FD

procedure editScript;
var
  ps: IPlanSwift;
  itm: IItem;
  prop: IPropertyObject;
begin
  //Create the Planswift Interface
  ps := coplanswift.Create;
  //Get the selected Item
  itm := ps.SelectedItem;
  if varisClear(itm) then begin
    ShowMessage('Please Select an Item');
    //Clear Interface
    ps := nil;
    //Exit Procedure
    Exit;
  end;                                     
  //Create new Property with the property type as script
  prop := itm.NewProperty('Example Script','',ptscript);
  //Set the script language to pascal
  prop.ScriptLanguage := slPascal;
  //Open Scripting dialog
  prop.EditScript;
  //Free Planswift Interface
  ps := nil;
end;