From b0db09b4dff742d35a0be891ce11a690cb7990b0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 4 Aug 2013 09:56:27 +0000
Subject: [PATCH] IDE: open loaded pkg dlg: debug

git-svn-id: trunk@42307 -
---
 packager/openinstalledpkgdlg.pas | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/packager/openinstalledpkgdlg.pas b/packager/openinstalledpkgdlg.pas
index 43f1b887aa..4e5622e50c 100644
--- a/packager/openinstalledpkgdlg.pas
+++ b/packager/openinstalledpkgdlg.pas
@@ -67,19 +67,21 @@ implementation
 {$R *.lfm}
 
 function ShowOpenLoadedPkgDlg(out OpenPackage: TLazPackage): TModalResult;
+var
+  Dlg: TOpenLoadedPackagesDlg;
 begin
   OpenPackage:=nil;
-  with TOpenLoadedPackagesDlg.Create(nil) do
+  Dlg:=TOpenLoadedPackagesDlg.Create(nil);
   try
-    UpdatePackageList;
-    UpdateSelection;
-    Result:=ShowModal;
-    if (Result=mrOK) and (Package<>nil) then
-      OpenPackage:=Package
+    Dlg.UpdatePackageList;
+    Dlg.UpdateSelection;
+    Result:=Dlg.ShowModal;
+    if (Result=mrOK) and (Dlg.Package<>nil) then
+      OpenPackage:=Dlg.Package
     else
       OpenPackage:=nil;
   finally
-    Free;
+    Dlg.Free;
   end;
 end;