const
  CNoLogin = 0;   // Никто не авторизовывался
  CProcess = 1;   // Находимся в процессе авторизации
  CSuccess = 2;  // Авторизовались
var
  LLoginState: Integer;
begin
    while True do begin // Из цикла выходим либо по исключению, либо при авторизацииж
      LLoginState := InterlockedCompareExchange(FLoginState, CProcess, CNoLogin);
      case LLoginState of
        CNoLogin: begin
          try
            UsrLogin;
            // Авторизовались
            FLoginState := CSuccess;
            // Выходим
            Break;
          except
            on E: Exception do begin
              // Сбой авторизации
              FLoginState := CNoLogin;
              raise;
            end;
          end;
        end;  // CNoLogin
        CSuccess: Break;  // Уже кто-то авторизовался ранее
      end;  // case LLoginState of
    end;  // while True do begin
end;