Sql server Can'；t断开与SQL Server数据库的连接

我在软件开发方面不是新手，但我对LazarusIDE的开发是新手。目前我正在从事一个使用SQL Server数据库的项目。连接到数据库并执行SQL查询并不困难

但我有一个问题，即断开与SQL Server数据库的连接会导致错误，我不知道为什么

在简短列表中，我连接到数据库，检查是否已连接，然后尝试断开与数据库的连接：

   Ret: String;
   DBConnExp: TSQLConnector;
   SQLTrans: TSQLTransaction;
begin
   DBConnExp := TSQLConnector.Create(nil);
   DBConnExp.ConnectorType := 'MSSQLServer';
   DBConnExp.LoginPrompt := False;
   DBConnExp.DatabaseName := 'myDatabase';
   DBConnExp.HostName := 'SERVER\SQLEXPRESS';
   DBConnExp.UserName := 'username';
   DBConnExp.Password := 'password';
   DBConnExp.Open;
   DBConnExp.Connected := True;
   SQLTrans := TSQLTransaction.Create(DBConnExp);
   DBConnExp.Transaction := SQLTrans;

   IF DBConnExp.Connected then
      Ret := 'connected'
   else
      Ret := 'not connected';

   SQLTrans.CloseDataSets;
   SQLTrans.Free;
   DBConnExp.Connected := False;

就在这里调试期间，执行被卡住了，我不知道为什么：

   IF DBConnExp.Connected then
      Ret := 'connected'
   else
      Ret := 'not connected';

我使用来自freeTDS的最新编译DLL

---

有人能帮我找出问题所在吗？

你说你有错误。什么错误？哪一行代码？是“SIGSEGV”异常，我无法获得更多信息。也可以使用try。。除了E.message没有帮助获得更多信息。