diff --git a/Source/Base/Utiles/uGridStatusUtils.pas b/Source/Base/Utiles/uGridStatusUtils.pas
index 6ddd209..dfcd1cd 100644
--- a/Source/Base/Utiles/uGridStatusUtils.pas
+++ b/Source/Base/Utiles/uGridStatusUtils.pas
@@ -88,12 +88,12 @@ var
   AList: TList;
   AKeyValue: Variant;
 begin
+  I := 0;
   Result := nil;
 
   if not Assigned(RecordInfo) then
   	Exit;
 
-  I := 0;
   ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues);
   AList := TList.Create;
   try