undefined results

lazpaintcontrols/lcvectororiginal.pas

@@ -2503,6 +2503,7 @@ begin
   idx := FShapes.IndexOf(AShape);
   if idx = -1 then exit(false);
   DeleteShapeRange(idx, 1);
+  result := true;
 end;
 
 procedure TVectorOriginal.DeleteShape(AIndex: integer);

lazpaintcontrols/lcvectorpolyshapes.pas

@@ -1055,7 +1055,7 @@ function TPolylineShape.PointInShape(APoint: TPointF): boolean;
 var
   pts: ArrayOfTPointF;
 begin
-  if not BackVisible and not PenVisible then exit;
+  if not BackVisible and not PenVisible then exit(false);
   pts := GetCurve(AffineMatrixIdentity);
   if BackVisible and IsPointInPolygon(pts, APoint, true) then exit(true);
   if PenVisible then