* Moved FreeAndNil(FDollarStrings) to correct location

git-svn-id: trunk@33266 -

packages/fcl-db/src/base/sqlscript.pp

@@ -633,6 +633,7 @@ begin
   FreeAndNil(FSQL);
   FreeAndNil(FDirectives);
   FreeAndNil(FDefines);
+  FreeAndNil(FDollarStrings);
   inherited Destroy;
 end;
 
@@ -645,7 +646,6 @@ procedure TCustomSQLScript.DefaultDirectives;
 begin
   With FDirectives do
     begin
-  FreeAndNil(FDollarStrings);
     // Insertion order matters as testing for directives will be done with StartsWith
     if FUseSetTerm then
       Add('SET TERM');