From 8d490675de0d28bed014e2fedb6a39f309d26fe6 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 9 Dec 2011 00:43:47 +0000
Subject: [PATCH] IDE: improvements to Use Unit dialog, issue #20743

git-svn-id: trunk@34058 -
---
 ide/useunitdlg.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/useunitdlg.pas b/ide/useunitdlg.pas
index 563d087354..0b988b7da2 100644
--- a/ide/useunitdlg.pas
+++ b/ide/useunitdlg.pas
@@ -354,9 +354,9 @@ begin
   with UnitsListBox do
     if ItemIndex >= 0 then
     begin
-      IdentItem := TIdentifierListItem(Items.Objects[ItemIndex]);
-      if Assigned(IdentItem) then
+      if Items.Objects[ItemIndex] is TIdentifierListItem then
       begin
+        IdentItem := TIdentifierListItem(Items.Objects[ItemIndex]);
         Result := IdentItem.Identifier;
         CodeBuf := CodeToolBoss.FindUnitSource(SourceEditorManager.ActiveEditor.CodeBuffer, Result, '');
         if Assigned(CodeBuf) then