anchor.diff:    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
  
positive.code: function LoadImage_PNG(AStream: TStream): TfpgImage;
  var
    imga: TFPMemoryImage;
  begin
    Result := nil;
    if AStream = nil then
  
negative.code:       end;
      end;
    finally
      reader.Free;
      imga.Free;
    end;
  end;
  