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;