From 888ed25fdd5b64c65402176365cffc2d1c5128fc Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 19 Jan 2010 19:19:35 +0000
Subject: [PATCH] git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1129
 8e941d3f-bd1b-0410-a28a-d453659cc2b4

---
 components/rx/rxpopupunit.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/rx/rxpopupunit.pas b/components/rx/rxpopupunit.pas
index b501b13a3..765f535d1 100644
--- a/components/rx/rxpopupunit.pas
+++ b/components/rx/rxpopupunit.pas
@@ -189,6 +189,7 @@ type
     procedure KeyPress(var Key: char); override;
     constructor CreatePopUp(AOwner: TComponent;
       APopUpFormOptions:TPopUpFormOptions; AFieldList:string; BtnWidtn:integer);
+    destructor Destroy; override;
     property DataSet:TDataSet read GetDataSet write SetDataSet;
     property LookupDisplayIndex:integer read GetLookupDisplayIndex write SetLookupDisplayIndex;
   end;
@@ -507,6 +508,12 @@ begin
     FRowCount:=FPopUpFormOptions.DropDownCount + 2 + ord(dgTitles in FGrid.Options);
 end;
 
+destructor TPopUpForm.Destroy;
+begin
+  FGrid.DataSource:=nil;
+  inherited Destroy;
+end;
+
 { TPopUpFormOptions }
 
 procedure TPopUpFormOptions.SetAutoSort(const AValue: boolean);