pt := cgt.elGetPt(e,j);
         if (cgt.ptGetLinkPoint(pt)<>0) and (pt<>point) and (cgt.ptGetLinkPoint(pt)<>point) then // <--- вот тут
          begin
            if cgt.ptGetType(pt) in [pt_event,pt_data] then