Page Comparison

var  
ps: IPlanSwift;
  itm: IItem;
begin
  // Create Planswift Interface
  ps := coPlanswift.Create;
  // Get the Selected item
  itm := ps.SelectedItem;
  // Chewck if the item can Record
  if itm.CanRecord then
    // Start Recording if can
    itm.DoRecord
  else
    // Show a message that it can not record
    ShowMessage('Item is not a Digitizing Object');
  ps := nil;