From cede6cfe89c945c13920787453de2132c1fd5794 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 14 Aug 2007 18:17:12 +0000
Subject: [PATCH] rtti controls: clean up

git-svn-id: trunk@11816 -
---
 components/rtticontrols/rttigrids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;