procedure TFAcoes.BitBtn2Click(Sender: TObject);
var i : integer;
begin
   if MessageDlg('Deseja Apagar Todos os Registros ?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
         Gauge1.Visible := true;
         Gauge1.MaxValue := CDS_Cadastro.recordcount -1;
         CDS_Cadastro.First;
         for i := 0 to CDS_Cadastro.recordcount -1  do
            begin
               CDS_Cadastro.delete;
               Gauge1.Progress := i + 1;
            end;
         CDS_Cadastro.ApplyUpdates(-1);
         Gauge1.Visible := false;
      end;
end;