diff --git a/Source/Base/Utiles/uGridStatusUtils.pas b/Source/Base/Utiles/uGridStatusUtils.pas
index 8d3c5e9c..dfcd1cda 100644
--- a/Source/Base/Utiles/uGridStatusUtils.pas
+++ b/Source/Base/Utiles/uGridStatusUtils.pas
@@ -88,12 +88,13 @@ var
   AList: TList;
   AKeyValue: Variant;
 begin
+  I := 0;
+  Result := nil;
+
   if not Assigned(RecordInfo) then
   	Exit;
 
-  I := 0;
   ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues);
-  Result := nil;
   AList := TList.Create;
   try
     while I < AView.ViewData.RowCount do