BatchMove com Progress Bar?

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