Page Comparison

procedure TForm1.GetSetPoint(sender: TObject);
var
  ps: IPlanSwift;
  area,sect: IItem;
  xs,cx,cy: Extended;
  pgw,pgh,p1x,p1y,p2x,p2y,p3x,p3y,p4x,p4y: Extended;
begin
  ps := coPlanswift.Create;
  area := ps.GetItem('Job\Takeoff');
  area := area.NewItem('Area','SetPointArea');
  sect := area.NewSection('SetPoint Area Section');
  pgw := ps.SelectedPage.GetPropertyResultAsInteger('PageWidth',0);
  pgh := ps.SelectedPage.GetPropertyResultAsInteger('PageHeight',0);
  xs := ps.SelectedPage.GetPropertyResultAsFloat('ScaleX',0);
  cx := pgw /2;
  cy := pgh /2;
  p1x := cx - 20 * xs;
  p1y := cy - 10 * xs;
  sect.NewPoint(p1x,p1y);          
  p2x := cx + 10 * XS;
  p2y := p1y;                       
  sect.NewPoint(p2x,p2y);
  p3x := p2x;
  p3y := cy + 10 * xs;
  sect.NewPoint(p3x,p3y);
  p4x := cx - 10 * xs;
  p4y := p3y;
  ps.NewPoint(sect.GUID,p4x,p4y);
  ShowMessage('Now will fix the first point by using set point');
  p1x := cx - 10 * XS;
  ps.SetPoint(sect.guid,0,p1x,p1y);
 
end;