From dc54158a3e1f276c92092bc00e5407f500cd29c1 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 30 Jan 2008 12:52:56 +0000
Subject: [PATCH] fix compile with lazarus v0.9.25 r13922M

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@333 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxlogin.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/rx/rxlogin.pas b/components/rx/rxlogin.pas
index 5fa89593f..b41aef433 100644
--- a/components/rx/rxlogin.pas
+++ b/components/rx/rxlogin.pas
@@ -442,11 +442,11 @@ end;
 
 procedure TRxLoginDialog.Loaded;
 var
-  Loading: Boolean;
+  FLoading: Boolean;
 begin
-  Loading := csLoading in ComponentState;
+  FLoading := csLoading in ComponentState;
   inherited Loaded;
-  if not (csDesigning in ComponentState) and Loading then begin
+  if not (csDesigning in ComponentState) and FLoading then begin
     if Active and not Login then
       TerminateApplication;
   end;