From 7ed85a3234992aba3765a54b43bd74ed4b115bdd Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 5 Dec 2009 06:48:21 +0000
Subject: [PATCH] fix close lookup

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1032 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxlookup.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/components/rx/rxlookup.pas b/components/rx/rxlookup.pas
index 35311e5f6..f86721591 100644
--- a/components/rx/rxlookup.pas
+++ b/components/rx/rxlookup.pas
@@ -1006,10 +1006,11 @@ begin
       FRxPopUpForm:=ShowRxDBPopUpForm(Self, FLookupDataLink.DataSet, @OnClosePopup,
         FPopUpFormOptions, FLookupDisplay, LookupDisplayIndex, 0 {ButtonWidth}, Font);
 {$IFDEF LINUX}
-  TempF:=FRxPopUpForm;
-  if FRxPopUpForm.ShowModal = mrOk then
-      OnClosePopup(true);
-  TempF.Free;
+      TempF:=FRxPopUpForm;
+      if FRxPopUpForm.ShowModal = mrOk then
+        OnClosePopup(true);
+      TempF.Free;
+      FRxPopUpForm:=nil
 {$ENDIF}
     end
 end;