anchor.diff:        end;
       end;
     finally
  +    reader.Free;
       imga.Free;
     end;
   end;
  
positive.code: function LoadImage_PNG(AStream: TStream): TfpgImage;
  var
    imga: TFPMemoryImage;
  begin
    Result := nil;
    if AStream = nil then
  
negative.code:   try
      try
        AStream.Position := 0;
        reader := TFPReaderPNG.Create;
        imga.LoadFromStream(AStream, reader); // auto size image
        Result := FPImageToFPG(imga);
      except
        on e: Exception do
  