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;