Lentidao excessiva na exportacao de projeto

A opcao de sugerir associacoes automaticamente na troca de versiculo
nao estava sendo desativada durante exportacoes, causando lentidao.

projeto.pas

@@ -60,6 +60,7 @@   TProjeto = class
   private
     FMemoVersiculo: TMemoVersiculo;
     FAtivo: boolean;
+    FExportando: boolean;
     FOnAlterarVersiculo: TOnAlterarVersiculoEvent;
     FSugerirAssociacaoAuto: boolean;
     FExibirDefComCtrl: boolean;
@@ -1322,31 +1323,31 @@ procedure TProjeto.VersiculoSeguinte;
 begin
   if not FTblPares.EOF then
     FTblPares.Next;
-  if SugerirAssociacaoAutomaticamente and (FRadioGroupSituacao.ItemIndex = 0) then
+  if not FExportando and SugerirAssociacaoAutomaticamente and (FRadioGroupSituacao.ItemIndex = 0) then
     SugerirAssociacao;
 end;
 
 procedure TProjeto.VersiculoAnterior;
 begin
   if not FTblPares.BOF then
     FTblPares.Prior;
-  if SugerirAssociacaoAutomaticamente and (FRadioGroupSituacao.ItemIndex = 0) then
+  if not FExportando and SugerirAssociacaoAutomaticamente and (FRadioGroupSituacao.ItemIndex = 0) then
     SugerirAssociacao;
 end;
 
 procedure TProjeto.VersiculoInicial;
 begin
   if not FTblPares.BOF then
     FTblPares.First;
-  if SugerirAssociacaoAutomaticamente and (FRadioGroupSituacao.ItemIndex = 0) then
+  if not FExportando and SugerirAssociacaoAutomaticamente and (FRadioGroupSituacao.ItemIndex = 0) then
     SugerirAssociacao;
 end;
 
 procedure TProjeto.VersiculoFinal;
 begin
   if not FTblPares.EOF then
     FTblPares.Last;
-  if SugerirAssociacaoAutomaticamente and (FRadioGroupSituacao.ItemIndex = 0) then
+  if not FExportando and SugerirAssociacaoAutomaticamente and (FRadioGroupSituacao.ItemIndex = 0) then
     SugerirAssociacao;
 end;
 
@@ -1627,6 +1628,7 @@ procedure TProjeto.ExportarTextoDestinoComStrongs(arquivo: string;
     end;
     FAVersiculo[tbOrigem].Ativo := false;
     FAVersiculo[tbDestino].Ativo := false;
+    FExportando := true;
     ONT := TStringList.Create;
     PreRolagemVersiculo(nil);
 
@@ -1691,6 +1693,7 @@ procedure TProjeto.ExportarTextoDestinoComStrongs(arquivo: string;
     ONT.Destroy;
     FAVersiculo[tbOrigem].Ativo := true;
     FAVersiculo[tbDestino].Ativo := true;
+    FExportando := false;
     PosRolagemVersiculo(nil);
     if assigned(pb) then
       pb.Visible := false;
@@ -1722,6 +1725,7 @@ procedure TProjeto.ExportarTextoInterlinear(arquivo: string;
     end;
     FAVersiculo[tbOrigem].Ativo := false;
     FAVersiculo[tbDestino].Ativo := false;
+    FExportando := true;
     ONT := TStringList.Create;
     PreRolagemVersiculo(nil);
 
@@ -1774,6 +1778,7 @@ procedure TProjeto.ExportarTextoInterlinear(arquivo: string;
     ONT.Destroy;
     FAVersiculo[tbOrigem].Ativo := true;
     FAVersiculo[tbDestino].Ativo := true;
+    FExportando := false;
     PosRolagemVersiculo(nil);
     if assigned(pb) then
       pb.Visible := false;
@@ -1829,6 +1834,7 @@ procedure TProjeto.ExportarConcordancia(arquivo: string;
 
     FAVersiculo[tbOrigem].Ativo := false;
     FAVersiculo[tbDestino].Ativo := false;
+    FExportando := true;
     PreRolagemVersiculo(nil);
 
     DesabilitarEventosRolagem;
@@ -1878,6 +1884,7 @@ procedure TProjeto.ExportarConcordancia(arquivo: string;
     Concordancia.Free;
     FAVersiculo[tbOrigem].Ativo := true;
     FAVersiculo[tbDestino].Ativo := true;
+    FExportando := false;
     IrPara(marcador);
     HabilitarEventosRolagem;
     PosRolagemVersiculo(nil);