Page Comparison

procedure TForm1.psSetPropertyFormula(Sender: TObject);
var
  ps: IPlanSwift;
  itm: String;
  messg: string;
begin
  ps := coPlanswift.Create;
  //Begin Formula Update;
  ps.BeginFormulaUpdate;
  //Get The Current Selected Itm
  itm := ps.SelectedItem.GUID;
  //if no Item Selected then Exit function
  if itm = '' then begin
    showMessage('no Item Selected');
    Exit;
  end;
  //Create a Description for the item
  messg := Inputbox('Enter A Description','Please enter a description','Your Description Here');
  //Set Item Description
  ps.SetPropertyFormula(itm,'Description',messg);
  //Make Description Property Visible
  ps.GetProperty(itm,'Description').IsInput := True;
  //Show Advance Item Properties
  ps.GetItem(itm).Edit(True);
  //End Update on formula
  ps.EndFormulaUpdate;
  //free Planswift Interface
  ps := nil;
end;