ObjRef:=Img1.FindContours(IevEXTERNAL,ievCHAIN_APPROX_SIMPLE,IEVisionPoint(0,0));
LDrawing := IEVisionLib.createDrawing;
LMath := IEVisionLib.createMath;
LColor := IEVisionScalar(255, 0, 0);
LTempIEBitmap.PixelFormat := ie8p;
LIndex := -1;
for i := 0 to ObjRef.Size - 1 do
begin
  LContour := TIEVisionVectorPoint(ObjRef.getObj(i));
  LRectContainingContour := LMath.boundingRect(LContour);
  if LMath.rectContains(LRectContainingContour,LPoint) then
    LIndex := i;
end;