Page Comparison

procedure TForm1.psNewBlankPage(Sender: TObject);
var
  ps: IPlanSwift;
  pg: IItem;
  note: IItem;
begin
//Create Planswift Interface
 ps := coPlanswift.Create;
 //Check to see if a job is open
 if not ps.IsJobOpen then begin
  ShowMessage('No Job Open');
  exit;
 end else begin
  //Create a new Blank page
   pg := ps.NewBlankPage('My New Page',36,24,200,'1/4"=1');
   //Draw a note on that page
   note := pg.NewItem('Note','My Page Note');
   // Set PAGEGUID on note so that it shows on the proper page
   note.SetPropertyFormula('PageGUID',pg.guid);
   //Set the note text
   note.SetPropertyFormula('Text','This is My New Page');
   //add first point on note
   note.NewPoint(0,0);
 end;
 //Free Planswift Interface
 ps := nil;
 
end;