Здравствуйте, delphi8888, Вы писали:

D>на это уходит приблизительно 30 секунд

D>процессор- core i5 750.

D>это нормально,или у меня кривой код?

По идее, тут вообще не должно обращений в базу быть, т.к. до Update-а вы позвали AcceptChanges, тем самым сбросив статус всех записей в Unchanged.
Непонятно на чем тут может быть 30 секунд.