Code example:
procedure TMainFrm.Button1Click(Sender: TObject); var APoint:TMyPoint; i:Integer; begin for i:=0 to MyCAD1.GetSelectedShape.GetPointsCount-1 do begin APoint:=MyCAD1.GetSelectedShape.GetPoint(i); ShowMessage('X:'+FloatToStr(APoint.X)+' Y:'+FloatToStr(APoint.Y)); end; end;