diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index fdfa4616a1..522e1faca1 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -73,6 +73,13 @@ begin
   end;
 end;
 
+// Callback function for SysUtils.OnGetApplicationName;
+function GetApplicationName: string;
+begin
+  if Assigned(Application) then
+    Result := Application.Title;
+end;
+
 {------------------------------------------------------------------------------
        TApplication Constructor
 ------------------------------------------------------------------------------}
@@ -107,6 +114,8 @@ begin
 
   FOldExitProc:=ExitProc;
   ExitProc:=@BeforeFinalization;
+  
+  OnGetApplicationName := @GetApplicationName;
 end;
 
 {------------------------------------------------------------------------------
@@ -151,6 +160,7 @@ begin
   // restore exception handling
   CaptureExceptions:=false;
   LCLProc.SendApplicationMessageFunction:=nil;
+  OnGetApplicationName := nil;
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/include/lclintf.inc b/lcl/include/lclintf.inc
index 1ce8f05ae6..31c8de1a30 100644
--- a/lcl/include/lclintf.inc
+++ b/lcl/include/lclintf.inc
@@ -346,7 +346,7 @@ end;
 function PromptUser(const DialogMessage : String; DialogType : longint; Buttons : PLongint;
   ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
 begin
-  Result := WidgetSet.PromptUser('', DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
+  Result := WidgetSet.PromptUser(ApplicationName, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
 end;
 
 function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint;