for i:= 0 to RecCount-1 do
begin
sql.Add(InsertSql);
end;


执行到第2次的时候，SQL属性没有清空，然后又Add了一次

实际上此时包含两条INSERT语句

ACCESS允许一次执行多条SQL语句，但是要求语句以分号隔开

所以ACCESS报告说，“没有加分号”

你的代码 sql.Add(InsertSql);

改成 SQL.Text := InsertSql 就可以了