diff --git a/packages/delphi11/heidisql.dpr b/packages/delphi11/heidisql.dpr
index 142fd508..5e9f67c0 100644
--- a/packages/delphi11/heidisql.dpr
+++ b/packages/delphi11/heidisql.dpr
@@ -60,6 +60,7 @@ begin
       );
       debug('perf: Running.');
       Application.Run;
+      ActivateMainform(Mainform.Handle);
     finally
       DeInitializeSync;
     end;
diff --git a/source/helpers.pas b/source/helpers.pas
index 693b769c..c09d242b 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -74,6 +74,8 @@ type
   procedure setLocales;
   function maskSql(sql_version: integer; str: String) : String;
   procedure ActivateWindow(Window : HWnd);
+  function GetApplication(MainForm: HWnd): HWnd;
+  procedure ActivateMainForm(MainForm: HWnd);
   procedure ShellExec( cmd: String; path: String = '' );
   function getFirstWord( text: String ): String;
   function ConvertWindowsCodepageToMysqlCharacterSet(codepage: Cardinal): string;