Functions - PointCount - FD

var  
ps: IPlanSwift;
  itm: IItem;
  i: Integer;
  pt: IPoint;
begin
  // Create the planswift Inteface
  ps := coPlanswift.Create;
  // Get the selected Item
  itm := ps.SelectedItem;
  // Check to see if an item is selected and has some points
  if ((VarIsClear(itm)) or (itm.PointCount = 0)) then
  begin
    ShowMessage('Please Select a Digitized Item');
    ps := nil;
    exit;
  end;
  // Loop Through all points
  for i := 0 to itm.PointCount - 1 do
  begin
    // Get point at i
    pt := itm.GetPoint(i);
    // Adjust the point by 10px on x and y axis
    itm.SetPoint(i, pt.X + 10, pt.Y + 10);
  end;
  // Free Planswift
  ps := nil;
end;