* Patch by Werner Pamler fixing AV when freeing non-closed dataset

git-svn-id: trunk@38540 -

packages/fcl-db/src/memds/memds.pp

@@ -401,12 +401,13 @@ end;
 
 destructor TMemDataset.Destroy;
 begin
-  FStream.Free;
+//  FStream.Free;
   FreeMem(FFieldOffsets);
   FreeMem(FFieldSizes);
   FBlobs.Clear;
   FBlobs.Free;
   inherited Destroy;
+  FStream.Free;
 end;
 
 function TMemDataset.BookmarkValid(ABookmark: TBookmark): Boolean;