+ Exception objects now descend from EStreamError

fcl/inc/idea.pp

@@ -46,7 +46,7 @@ PROCEDURE CipherIdea(input: ideacryptdata; VAR out: ideacryptdata; z: IDEAkey);
 
 Type  
 
-EIDEAError = Class(Exception);
+EIDEAError = Class(EStreamError);
 
 TIDEAEncryptStream = Class(TStream)
   private

fcl/inc/zstream.pp

@@ -8,7 +8,7 @@ uses Sysutils, Classes,zlib;
 type
   // Error reporting.
 
-  EZlibError = class(Exception);
+  EZlibError = class(EStreamError);
   ECompressionError = class(EZlibError);
   EDecompressionError = class(EZlibError);