FDQuery не видит таблицу

procedure TLoginForm.FormCreate(Sender: TObject);
var
UsersDBFile, HistoryCorrespondenceDBFile : File;
PathToUsersDBFile, PathToHistoryCorrespondenceFile : String;
begin
    LoginForm.ShowModal;
 
    PathToUsersDBFile := ExtractFilePath(ParamStr(0)) + 'users_database.db';
    PathToHistoryCorrespondenceFile := ExtractFilePath(ParamStr(0)) + 'history_database.db';
 
    RegistrationForm.UsersDBConnection.Params.Database := PathToUsersDBFile;
    MainDataModule.HistoryCorrConnection.Params.Database := PathToHistoryCorrespondenceFile;
 
    AssignFile(UsersDBFile, 'users_database.db');
    if not FileExists('users_database.db') then
    begin
        Rewrite(UsersDBFile);
        CloseFile(UsersDBFile);
        create_users_table(RegistrationForm.UsersDBConnection);
    end;
 
    AssignFile(HistoryCorrespondenceDBFile, 'history_database.db');
    if not FileExists('history_database.db') then
    begin
        Rewrite(HistoryCorrespondenceDBFile);
        CloseFile(HistoryCorrespondenceDBFile);
        create_history_table(MainDataModule.HistoryCorrConnection);
    end;
 
end;

procedure create_users_table(DBConnection : TFDConnection);
begin
    with DBConnection do begin
        ExecSQL('CREATE TABLE users_table (' +
        'user_id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, ' +
        'email TEXT NOT NULL, ' +
        'login TEXT NOT NULL, ' +
        'password TEXT NOT NULL);');
    end;
end;

procedure create_history_table(DBConnection : TFDConnection);
begin
    with DBConnection do begin
        ExecSQL('CREATE TABLE history_table (' +
        'document_id INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, ' +
        'document_name TEXT NOT NULL, ' +
        's_fname TEXT NOT NULL, ' +
        's_lname TEXT NOT NULL, ' +
        's_mname TEXT NOT NULL, ' +
        'exec_fname TEXT NOT NULL, ' +
        'exec_lname TEXT NOT NULL, ' +
        'exec_mname TEXT NOT NULL, ' +
        'create_date TEXT NOT NULL, ' +
        'send_date TEXT NOT NULL, ' +
        'email TEXT NOT NULL, ' +
        'document_file TEXT NOT NULL, ' +
        'mail TEXT NOT NULL, ' +
        'xerox_file TEXT NOT NULL, ' +
        'Physical_adres TEXT NOT NULL, ' +
        'input_output TEXT NOT NULL );');
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FDSQLiteBackup.Backup
end;