Fixes a memory leak when reading a PNG image from a Stream.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/corelib/fpg_imgfmt_png.pas b/src/corelib/fpg_imgfmt_png.pas
index d0620672..c0659d2e 100644
--- a/src/corelib/fpg_imgfmt_png.pas
+++ b/src/corelib/fpg_imgfmt_png.pas
@@ -88,6 +88,7 @@ end;
 function LoadImage_PNG(AStream: TStream): TfpgImage;
 var
   imga: TFPMemoryImage;
+  reader: TFPReaderPNG;
 begin
   Result := nil;
   if AStream = nil then
@@ -97,7 +98,8 @@ begin
   try
     try
       AStream.Position := 0;
-      imga.LoadFromStream(AStream, TFPReaderPNG.Create); // auto size image
+      reader := TFPReaderPNG.Create;
+      imga.LoadFromStream(AStream, reader); // auto size image
       Result := FPImageToFPG(imga);
     except
       on e: Exception do
@@ -107,6 +109,7 @@ begin
       end;
     end;
   finally
+    reader.Free;
     imga.Free;
   end;
 end;