* Fixed memory leak when destroying TBUFdataset, indexdefs were not freed

git-svn-id: trunk@11515 -

packages/fcl-db/src/base/bufdataset.pas

@@ -519,7 +519,16 @@ begin
 end;
 
 destructor TBufDataset.Destroy;
+
+Var
+  I : Integer;
 begin
+  SetLength(FUpdateBuffer,0);
+  SetLength(FBlobBuffers,0);
+  SetLength(FUpdateBlobBuffers,0);
+  For I:=0 to Length(FIndexes)-1 do
+    FreeAndNil(Findexes[I]);
+  SetLength(FIndexes,0);
   FreeAndNil(FIndexDefs);
   inherited destroy;
 end;