Fix mem leak in InitiRecord

git-svn-id: trunk@31844 -

packages/fcl-db/src/sqlite/customsqliteds.pas

@@ -947,6 +947,7 @@ begin
   if FAutoIncFieldNo <> - 1 then
   begin
     Str(FNextAutoInc, TempStr);
+    StrDispose(FBeginItem^.Row[FAutoIncFieldNo]);
     FBeginItem^.Row[FAutoIncFieldNo] := StrAlloc(Length(TempStr) + 1);
     StrPCopy(FBeginItem^.Row[FAutoIncFieldNo], TempStr);
   end;