diff --git a/Source/Base/Utiles/uGridClipboardUtils.pas b/Source/Base/Utiles/uGridClipboardUtils.pas
index 619990b2..d4cb3689 100644
--- a/Source/Base/Utiles/uGridClipboardUtils.pas
+++ b/Source/Base/Utiles/uGridClipboardUtils.pas
@@ -76,7 +76,6 @@ var
     Result := False;
     for i := 0 to AView.ItemCount - 1 do
     begin
-      bNombreOk := False;
       if (AView.Items[i].DataBinding is TcxGridItemDBDataBinding) then
         with (AView.Items[i].DataBinding as TcxGridItemDBDataBinding) do
           bNombreOk := (FieldName = AName)
@@ -129,8 +128,10 @@ begin
       begin
         ARecordIndex := AView.DataController.FocusedRecordIndex;
         if ARecordIndex >= 0 then
+        begin
           ARecordID := AView.DataController.GetRecordId(ARecordIndex);
-        ADataSet.Locate(AView.DataController.KeyFieldNames, ARecordID, []);
+          ADataSet.Locate(AView.DataController.KeyFieldNames, ARecordID, []);
+        end;
       end;
 
       for iContador := 0 to NumFilas - 1 do