Page Comparison

var  
ps: IPlanSwift;
  itm: IItem;
  txt: string;
  i: Integer;
  prop: IPropertyObject;
begin
  // Create Planswift Interface
  ps := coPlanswift.Create;
  // Get the Selected Item
  itm := ps.SelectedItem;
  // Write text
  txt := 'Item Properties: ' + #13#10;
  // Loop through all properties
  for i := 0 to itm.PropertyCount - 1 do
  begin
    // Get Property at index i
    prop := itm.PropertyItem[i];
    // Add Property name to text
    txt := txt + prop.name + #13#10;
  end;
  // Show all Property names
  ShowMessage(txt);
  // Free Planswift
  ps := nil;
end;