diff --git a/components/rtticontrols/rttigrids.pas b/components/rtticontrols/rttigrids.pas
index a0550bfe73..e47b7323d9 100644
--- a/components/rtticontrols/rttigrids.pas
+++ b/components/rtticontrols/rttigrids.pas
@@ -397,7 +397,7 @@ begin
   if RegisteredTIGridControls=nil then exit;
   for i:=0 to RegisteredTIGridControls.Count-1 do
     TObject(RegisteredTIGridControls[i]).Free;
-  RegisteredTIGridControls.Free;
+  FreeAndNil(RegisteredTIGridControls);
 end;
 
 procedure Register;