RxFPC: fix compile

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6601 8e941d3f-bd1b-0410-a28a-d453659cc2b4

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;