BatchMove - colocando um gauge

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.