lps-файл удалён и добавлен в gitignore. Почти готов механизм подгрузки списков пакетов на старте

ABTool.lpr

@@ -16,42 +16,10 @@ uses {$IFDEF UNIX} {$IFDEF UseCThreads}
 
 {$R *.res}
 
-var
-  // путь к файлу ABTool.exe
-  ABToolExePath: String;
-
-  // путь к директории ABTool
-  ABToolDataPath: String;
-
-  // путь к директории ABTool\Packages
-  ABToolPkgPath: String;
-
-  // путь к директории ABTool\Languages
-  ABToolLangPath: String;
-
-  // путь к директории ABTool\Logs
-  ABToolLogPath: String;
-
 begin
   RequireDerivedFormResource := True;
   Application.Initialize;
-
-  // настройка путей к директориям
-  ABToolExePath := ExtractFilePath(ParamStr(0));
-  ABToolDataPath := ABToolExePath + 'ABTool\';
-  ABToolPkgPath := ABToolDataPath + 'Packages\';
-  ABToolLangPath := ABToolDataPath + 'Languages\';
-  ABToolLogPath := ABToolDataPath + 'Logs\';
-
-  // подготовка директорий
-  if not DirectoryExists(ABToolPkgPath) then
-    ForceDirectories(ABToolPkgPath);
-  if not DirectoryExists(ABToolLangPath) then
-    ForceDirectories(ABToolLangPath);
-  if not DirectoryExists(ABToolLogPath) then
-    ForceDirectories(ABToolLogPath);
-
-  Application.CreateForm(TMainDM, MainDM);
+  Application.CreateForm(TdmMain, dmMain);
   Application.CreateForm(TfmMain, fMain.fmMain);
   Application.Run;
 end.