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