diff --git a/components/rx/trunk/rxlookup.pas b/components/rx/trunk/rxlookup.pas
index acbbcaeea..2fec5b4a9 100644
--- a/components/rx/trunk/rxlookup.pas
+++ b/components/rx/trunk/rxlookup.pas
@@ -1208,6 +1208,7 @@ begin
     NeedUpdateData;//We need to update DataField;
   end;
 
+  SetFocus;
   if (AResult) and (Assigned(FOnSelect)) then
     FOnSelect(Self);
 end;