From 71d8b00d814d095d92079c8635f1370e1fa9b40a Mon Sep 17 00:00:00 2001
From: Jesus Reyes A <jesusrmx@gmail.com>
Date: Sun, 1 Aug 2021 18:40:53 -0500
Subject: [PATCH] LCL: DBLookupCombobox should not update if it's unbound,
 fixes autocompletion, issue #34298

---
 lcl/include/dblookupcombobox.inc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lcl/include/dblookupcombobox.inc b/lcl/include/dblookupcombobox.inc
index d91112833f..66753161ef 100644
--- a/lcl/include/dblookupcombobox.inc
+++ b/lcl/include/dblookupcombobox.inc
@@ -48,10 +48,8 @@ begin
   if IsUnbound then begin
     if FDetectedEvents and DBCBEVENT_CHANGE <> 0 then
       DoOnChange;
-    if DetectedEvents and DBCBEVENT_SELECT <>0 then begin
-      UpdateData(self);
+    if DetectedEvents and DBCBEVENT_SELECT <>0 then
       DoOnSelect;
-    end;
     if DetectedEvents and DBCBEVENT_CLOSEUP <>0 then
       DoOnCloseUp;
   end