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 = nil 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;