Page Comparison

var  
ps: IPlanSwift;
  itm: IItem;
  pitm: IItem;
begin
  // Create the Planswift Interface
  ps := coPlanswift.Create;
  // Get the Selected Item
  itm := ps.SelectedItem;
  // Get the Selected Items parent
  pitm := itm.ParentItem;
  // Show the parent items name
  ShowMessage('Select Item Parent is: ' + pitm.Name);
  // Free Planswift
  ps := nil;
end;