Segmentation fault 打开TDBF时SIGSEGV/堆栈溢出

调用一个新表单并在此新表单中打开一个DBF后，Lazarus中出现一个SIGSEGV，在Lazarus之外运行程序时出现堆栈溢出。 操作系统是Win10

调用其他两个表单不会产生此错误

有什么问题吗？ 从表单TF_菜单调用：

---

---

新表单TF_模块，模块处有错误。打开：

---

---

---

这不是缺陷dbf。我已经创建了完全相同的全新dbf

---

现在，我们已经推出了全新的形式，到目前为止，一切都运行得很好。天知道那是什么。

有趣的是：我在TDBF中使用了不同的DBF吗：它起作用了吗？我在TDBF中使用了不同的DBF吗：不起作用了吗？我重命名了问题中的DBF吗？不起作用了吗？我是否将DBF放在不同的文件夹中，并重命名为：不起作用了

procedure TF_Menu.Men_ModulesClick(Sender: TObject);

begin
  MModulNr := Module.Fields.FieldByName('NR').Value;
  Module.close;

  F_Menu.Visible := false;      // Called form unvisible
  F_Modules := TF_Modules.Create(Nil);  // New form being created
  F_Modules.ShowModal;       // New form being activated/shown
  FreeAndNil(F_Modules);     // New form destroyed
  F_Menu.Visible := true;
// …
end;

procedure TF_Modules.FormCreate(Sender: TObject);

begin
  Module.FilePathFull := Modules_Lw;
  Module.ReadOnly := false;
  Module.Open;                // Here the error occurs
  Module.IndexName := 'NR';
end;