Запись в Paradox *.db.

Помогите плиз. Проблема вот в чем: Есть база, бегу по её записям если удовлетворяет условию то записываю в другую. Смотрю на размер растет при выполнении. А по завершению кода БД пуста!?!?!?
Почему?
Код :
while(Calls->FieldByName("S7")->AsInteger==number)
{
Base->Append();
Base->Edit();
Base->FieldByName("Ntel")->AsInteger=Calls->FieldByName("TLFLINK")->AsInteger;
.......
Base->Post();
Calls->Next();
CGauge2->Progress+=1;
}