оптимизон от нейронки, доделал автоматические действия, добавил глобальный лог, сделал реконекты к ДА

fSettings.fmx

@@ -134,7 +134,7 @@ object frSettings: TfrSettings
       Size.Width = 128.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 34
+      TabOrder = 33
       Text = #1054#1090#1082#1088#1099#1090#1100' '#1089#1090#1088#1080#1084
       TextSettings.Trimming = None
       OnClick = btnOpenStreamClick
@@ -145,14 +145,14 @@ object frSettings: TfrSettings
       Size.Width = 128.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 35
+      TabOrder = 34
       Text = #1055#1086#1083#1091#1095#1080#1090#1100' Token'
       TextSettings.Trimming = None
       OnClick = btnGetTokenStreamerClick
     end
     object edtBotTokenStreamer: TEdit
       Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 36
+      TabOrder = 35
       Password = True
       Position.X = 8.000000000000000000
       Position.Y = 146.000000000000000000
@@ -191,7 +191,7 @@ object frSettings: TfrSettings
     object btnDAGetCode: TButton
       Position.X = 200.000000000000000000
       Position.Y = 216.000000000000000000
-      TabOrder = 45
+      TabOrder = 43
       Text = #1055#1086#1083#1091#1095#1080#1090#1100
       TextSettings.Trimming = None
       OnClick = btnDAGetCodeClick
@@ -201,11 +201,11 @@ object frSettings: TfrSettings
       Position.Y = 24.000000000000000000
       TextSettings.Trimming = None
       Text = 'Client ID'
-      TabOrder = 36
+      TabOrder = 35
     end
     object edtDAClientID: TEdit
       Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 40
+      TabOrder = 39
       Password = True
       Position.X = 8.000000000000000000
       Position.Y = 49.000000000000000000
@@ -218,11 +218,11 @@ object frSettings: TfrSettings
       Position.Y = 79.000000000000000000
       TextSettings.Trimming = None
       Text = 'Client Secret'
-      TabOrder = 38
+      TabOrder = 36
     end
     object edtDAClientSecret: TEdit
       Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 39
+      TabOrder = 38
       Password = True
       Position.X = 8.000000000000000000
       Position.Y = 104.000000000000000000
@@ -235,11 +235,11 @@ object frSettings: TfrSettings
       Position.Y = 134.000000000000000000
       TextSettings.Trimming = None
       Text = 'Redirect URL'
-      TabOrder = 41
+      TabOrder = 40
     end
     object edtDARedirectURL: TEdit
       Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 42
+      TabOrder = 41
       Password = True
       Position.X = 8.000000000000000000
       Position.Y = 159.000000000000000000
@@ -249,7 +249,7 @@ object frSettings: TfrSettings
     end
     object edtDACode: TEdit
       Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 43
+      TabOrder = 42
       Password = True
       Position.X = 8.000000000000000000
       Position.Y = 214.000000000000000000
@@ -270,7 +270,7 @@ object frSettings: TfrSettings
       Size.Width = 121.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 46
+      TabOrder = 45
       Text = #1055#1086#1076#1082#1083#1102#1095#1080#1090#1100#1089#1103
       TextSettings.Trimming = None
       OnClick = btnDAStartClick