Page Comparison

var  
ps: IPlanSwift;
  itm: IItem;
  i: Integer;
  txt: string;
  prop: IPropertyObject;
begin
  // Create Planswift Inteface
  ps := coPlanswift.Create;
  // Get Selected Item
  itm := ps.SelectedItem;
  // Add text
  txt := 'Item Properties: ' + #13#10;
  // Loop though 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;