Page Comparison

var  
ps: IPlanSwift;
  itm: IItem;
  isItem: Boolean;
begin
  // Create Planswift Interface
  ps := coPlanswift.Create;
  // Get the Selected item
  itm := ps.SelectedItem;
  // Check to see if Item is of the "Item Class"
  isItem := itm.GetPropertyResultAsBoolean('IsItem', False);
  if isItem then
    // ShowMesssage that Item is of Item Class'
    ShowMessage('Selectd Item is of the Item Class')
  else
    // ShowMessage that Item is not of the Item Class;
    ShowMessage('Selected Item is not of the Item Class');
  // Free the planswift Interface
  ps := nil;