Page Comparison

procedure TForm1.psSelectItemDialog(Sender: TObject);
var
  ps: IPlanSwift;
  itm: IItem;
begin
  //Create Planswift Interface
  ps := CoPlanswift.Create;
  //Open Item Dialog and select planswift root
  itm := ps.SelectItemDialog('Select An Item','Select An item',ps.Root.FullPath);
  //Show Selected item Name
  ShowMessage(itm.Name + 'Has been selected');
  //Free Planswift
  ps := nil;
 
end;