Connection.StartTransaction; messageDlg('Транзакция стартанула',

Question

Connection.StartTransaction; messageDlg('Транзакция стартанула',

mtError, [mbOK], 0);

try
// Add multiple records
Query.SQL.Text := Format('INSERT INTO %s (Id, Name) VALUES (:Id,:Name);', [TableName]);
for i := 1 to 1000 do // Example: inserting 1000 records
begin
Query.ParamByName('Id').AsInteger := i;

Query.ParamByName('Name').AsString := Format('Record %d', [i]);
Query.ExecSQL;
end;

// Commit the transaction
Connection.Commit;
Writeln('Bulk insert completed successfully.');
какого оно мне 105 ввода вывода при попытке сделать множественную запись в бд выкидывает?