Поле AutoIncrement = Yes

[zub]

У меня работает конструкция
RecTo:=RecFrom;
recTo.Id:=0;
recTo.insert;

Какая у вас версия ?
В версии 3.7 А работа с Avtoincrenet глючит именно в вашем варианте "б". Причем проявление этого глюка происходит в зависимости от места положения поля с типом Avtoincrement.
В версии 3.7 B все нормально