diff --git a/projeto.pas b/projeto.pas
index b032659..16b4502 100644
--- a/projeto.pas
+++ b/projeto.pas
@@ -771,6 +771,9 @@ procedure TProjeto.PosRolagemVersiculo(DataSet: TDataSet);
 
   if assigned(OnNovoVersiculo) then
     OnNovoVersiculo(self);
+
+  if FTblPares.Fields[FACamposTexto[tbDestino]].AsString.IsEmpty then // open verse to edition if is empty
+    OnDblClickVersiculo(FAVersiculo[tbDestino].Painel);
 end;
 
 procedure TProjeto.SalvarPares;