diff --git a/components/rx/trunk/rx_laz/apputils.pp b/components/rx/trunk/rx_laz/apputils.pp
index 760e7a8ec..d5b4154f7 100644
--- a/components/rx/trunk/rx_laz/apputils.pp
+++ b/components/rx/trunk/rx_laz/apputils.pp
@@ -17,6 +17,9 @@ interface
 uses
   Classes, Controls, Forms, LazFileUtils, LazUTF8, IniFiles, Grids;
 
+const
+  SNoMDIForm = 'No MDI form present.';
+
 function GetDefaultSection(Component: TComponent): string;
 procedure GetDefaultIniData(Control: TControl; var IniFileName, Section: string );
 function GetDefaultIniName: string;