...
Query: TsqlQuery
...
    Query.sql.Clear;
    Query.sql.Add('INSERT INTO pumps'#13#10 +
                       'VALUES (NULL,:title,:power)');
    Query.ParamByName('title').AsString:= title;
    Query.ParamByName('power').AsFloat:= power;
    try
      Query.Execsql;
    except
      on E: Exception do
        begin
          ShowMessage(E.Message);
        end;
    end;

查询通过driver = sqlite链接到sqlConnection.所有操作都可以正常工作,但是当我尝试将非唯一值插入到具有唯一索引的列中时,我会得到有关值存在的异常.好的,我的代码捕获它并显示消息’列标题不唯一’,但在调试器显示异常TWICE之前.当我关闭程序时,内存管理器会告诉内存泄漏,泄漏是：

> 21 – 28字节：UnicodeString x 4
> 61 – 68字节：TDBXsqliteCommand x2
> 69 – 76字节：TDBXMorphicCommand x 2
> 221 – 236字节：未知x 2

有可能避免这种情况吗？

UPD：我使用FastMM4来获取详细的日志,下面是关于一个内存泄漏的部分：

A memory block has been leaked. The size is: 68

This block was allocated by thread 0xB18,and the stack trace (return addresses) at the time was:
4068A6 [System.pas][System][@GetMem$qqri][4203]
4082BB [System.pas][System][TObject.NewInstance$qqrv][14969]
4089D2 [System.pas][System][@ClassCreate$qqrpvzc][16231]
7D5A91 [Data.Dbxsqlite.pas][Data.Dbxsqlite][Dbxsqlite.TDBXsqliteCommand.$bctr$qqrp26Data.Dbxcommon.TDBXContextp35Data.Dbxsqlite.TDBXsqliteConnection][567]
6E3DFE [Data.DBXCommon][Generics.Collections.%TDictionary__2$20System.UnicodeStringp32Data.Dbxcommon.TDBXCreateCommand%.GetBucketIndex$qqrx20System.UnicodeStringi]
7D4C8E [Data.Dbxsqlite.pas][Data.Dbxsqlite][Dbxsqlite.TDBXsqliteDriver.CreatesqliteCommand$qqrp26Data.Dbxcommon.TDBXContextp29Data.Dbxcommon.TDBXConnectionp26Data.Dbxcommon.TDBXCommand][295]
6CE4DA [Data.DBXCommon.pas][Data.DBXCommon][Dbxcommon.TDBXDriver.CreateMorphCommand$qqrp26Data.Dbxcommon.TDBXContextp29Data.Dbxcommon.TDBXConnectionp26Data.Dbxcommon.TDBXCommand][7569]
6D5177 [Data.DBXCommon.pas][Data.DBXCommon][Dbxcommon.TDBXDelegateDriver.CreateMorphCommand$qqrp26Data.Dbxcommon.TDBXContextp29Data.Dbxcommon.TDBXConnectionp26Data.Dbxcommon.TDBXCommand][11061]
6D09F4 [Data.DBXCommon.pas][Data.DBXCommon][Dbxcommon.TDBXConnection.CreateMorphCommand$qqrp26Data.Dbxcommon.TDBXCommand][8480]
6D1C21 [Data.DBXCommon.pas][Data.DBXCommon][Dbxcommon.TDBXMorphicCommand.DerivedOpen$qqrv][9084]
6D1974 [Data.DBXCommon.pas][Data.DBXCommon][Dbxcommon.TDBXCommand.Open$qqrv][8962]

The block is currently used for an object of class: TDBXsqliteCommand