--- ibx/trunk/examples/services/SelectDBDlgUnit.pas	2018/04/16 09:24:55	208
+++ ibx/trunk/examples/services/SelectDBDlgUnit.pas	2018/03/14 12:48:51	209
@@ -44,6 +44,7 @@ type
     Button2: TButton;
     Edit1: TEdit;
     Label1: TLabel;
+    procedure FormShow(Sender: TObject);
   private
 
   public
@@ -60,6 +61,11 @@ implementation
 
 { TSelectDBDlg }
 
+procedure TSelectDBDlg.FormShow(Sender: TObject);
+begin
+  Edit1.SetFocus;
+end;
+
 function TSelectDBDlg.ShowModal(var DatabaseName: string): TModalResult;
 begin
   Edit1.Text := DatabaseName;