* Patch from Mattias Gaertner to fix memory leak

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12235 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 17 insertions, 13 deletions

diff --git a/packages/fcl-image/src/fpinterpolation.inc b/packages/fcl-image/src/fpinterpolation.inc
index 0a7ceb1186..84aa4e4bcf 100644
--- a/packages/fcl-image/src/fpinterpolation.inc
+++ b/packages/fcl-image/src/fpinterpolation.inc
@@ -166,19 +166,23 @@ var maxy : integer;
     rx,ry : integer;
 begin
   tempimage := TFPMemoryImage.Create (w,image.height);
-  tempimage.UsePalette := false;
-  xfactor := image.Width / w;
-  yfactor := image.Height / h;
-  if xfactor > 1.0 then
-    xsupport := MaxSupport
-  else
-    xsupport := xfactor * MaxSupport;
-  if yfactor > 1.0 then
-    ysupport := MaxSupport
-  else
-    ysupport := yfactor * MaxSupport;
-  Horizontal (w);
-  Vertical (x,y,w,h);
+  try
+    tempimage.UsePalette := false;
+    xfactor := image.Width / w;
+    yfactor := image.Height / h;
+    if xfactor > 1.0 then
+      xsupport := MaxSupport
+    else
+      xsupport := xfactor * MaxSupport;
+    if yfactor > 1.0 then
+      ysupport := MaxSupport
+    else
+      ysupport := yfactor * MaxSupport;
+    Horizontal (w);
+    Vertical (x,y,w,h);
+  finally
+    tempimage.Free;
+  end;
 end;
 
 { TMitchelInterpolation }