загрузка в новый гит с мелкими правками

Services/uTWAuth.pas

@@ -11,8 +11,7 @@ type
 
 type
   TTTWAuth = class
-    FmyEvent: TmyEvent;
-    FURL: string;
+
   private
     FHTTPServer: TIdHTTPServer;
     procedure HandleRequest(ASender: TIdContext;
@@ -26,6 +25,8 @@ type
     procedure OnStatus(ASender: TObject; const AStatus: TIdStatus;
       const AStatusText: string);
   public
+    FmyEvent: TmyEvent;
+    FURL: string;
     constructor Create;
     destructor Destroy; override;
     procedure StartServer(aURL: string);