diff --git a/source/exportsql.pas b/source/exportsql.pas
index bb74dae6..494a6bd1 100644
--- a/source/exportsql.pas
+++ b/source/exportsql.pas
@@ -808,11 +808,13 @@ begin
       StrProgress := 'Table ' + inttostr(tablecounter) + '/' + inttostr(tcount) + ': ' + checkListTables.Items[i];
       lblProgress.caption := StrProgress;
 
+      if tofile then
+        f := InitFileStream(checkListTables.Items[i], f);
+
       if exporttables then
       begin
         if tofile then
         begin
-          f := InitFileStream(checkListTables.Items[i], f);
           if f = nil then
           begin
             Screen.Cursor := crDefault;