ADOQuery1.Open; Dbf1.CopyFrom(ADOQuery1); // не помню, реализован ли там этот метод, но можно и циклом скопировать по записи ADOQuery1.Close;