diff --git a/components/tvplanit/languages/demo.de.po b/components/tvplanit/languages/demo.de.po
index 9c63344a9..7426b727f 100644
--- a/components/tvplanit/languages/demo.de.po
+++ b/components/tvplanit/languages/demo.de.po
@@ -27,10 +27,6 @@ msgstr "Turbo Power VisualPlanIt Demo"
 msgid "Language"
 msgstr "Sprache"
 
-#: tmainform.label2.caption
-msgid "Number of days"
-msgstr ""
-
 #: tmainform.rballtasks.caption
 msgid "All tasks"
 msgstr "Alle Aufgaben"
diff --git a/components/tvplanit/languages/demo.po b/components/tvplanit/languages/demo.po
index 7233631fc..9df94b4bb 100644
--- a/components/tvplanit/languages/demo.po
+++ b/components/tvplanit/languages/demo.po
@@ -17,10 +17,6 @@ msgstr ""
 msgid "Language"
 msgstr ""
 
-#: tmainform.label2.caption
-msgid "Number of days"
-msgstr ""
-
 #: tmainform.rballtasks.caption
 msgid "All tasks"
 msgstr ""
diff --git a/components/tvplanit/source/vpbufds.pas b/components/tvplanit/source/vpbufds.pas
index dcac80890..cd96d9a41 100644
--- a/components/tvplanit/source/vpbufds.pas
+++ b/components/tvplanit/source/vpbufds.pas
@@ -99,7 +99,12 @@ begin
     dir := IncludeTrailingPathDelimiter(FDirectory);
   dir := ExpandFileName(dir);
   if not DirectoryExistsUTF8(dir) then
-    raise Exception.CreateFmt('Directory "%s" for tables does not exist.', [dir]);
+  begin
+    if AutoCreate then
+      CreateDir(dir)
+    else
+      raise Exception.CreateFmt('Directory "%s" for tables does not exist.', [dir]);
+  end;
 
   if ATableName = ResourceTableName then
     table := FResourceTable