Colocando uma barra de progresso para o batchmove

{1 - No form, coloque um componente TDataSource. 2 - Na propriedade DataSet do TDataSource inserido, coloque a tabela de origem, ou seja, "DataSource1.DataSet:=BatchMove1.Source;"

3 - Utilize o evento OnChangeData do TDataSource p/ acompanhar o processo de cópia.

Lembre-se que antes disso você deverá utilizar a propriedate RecordCount da tabela de origem para saber o total de registros que serão copiados.

Lembre-se também que a cada registro lido, o evento OnChangeData é chamado, portanto, é através desse evento que você poderá acompanhar o

processo de cópia, e por exemplo, atualizar uma barra de porcentagem}