SQLite之TZConnection事务下为何插入记录很慢？

[freemaker]

function ExecSQL(SQLList: TStringList): Boolean;
var
  ZQuery: TZQuery;
begin
  Result := True;
  ZQuery := TZQuery.Create(nil);
  try
    try
      ZQuery.Connection := ZConn;
      for I:=0 to SQLList.Count-1 do
      begin
        ZQuery.SQL.Clear;
        ZQuery.SQL.Add(SQLList.Strings[I]);
        ZQuery.ExecSQL;
      end;
      ZConn.Commit;
    except
      Result := False;
      ZConn.Rollback;
    end;
  finally
    FreeAndNil(ZQuery);
  end;
end;

400条记录20多秒，不可思议。据说用事务比较快，是不是我哪里用得有问题？
请懂得朋友指正下。

[freemaker]

function ExecSQL(SQLList: TStringList): Boolean;
var
  ZQuery: TZQuery;
begin
  Result := True;
  ZQuery := TZQuery.Create(nil);
  try
    try
      ZConn.StartTranction;
      ZQuery.Connection := ZConn;
      for I:=0 to SQLList.Count-1 do
      begin
        ZQuery.SQL.Clear;
        ZQuery.SQL.Add(SQLList.Strings[I]);
        ZQuery.ExecSQL;
      end;
      ZConn.Commit;
    except
      Result := False;
      ZConn.Rollback;
    end;
  finally
    FreeAndNil(ZQuery);
  end;
end;

昨晚贴上来的时候被我不小心删错了，还有ZConn.StartTranction;
SQLList是创建语句和插入数据的语句，用作初始化数据库。
真想知道你们是怎么做的。