добавил часть модулей, нужно переделать БД на records

fSettings.fmx

@@ -98,6 +98,7 @@ object frSettings: TfrSettings
       TabOrder = 3
       Text = #1055#1086#1083#1091#1095#1080#1090#1100' Token'
       TextSettings.Trimming = None
+      OnClick = btnGetTokenClick
       Left = 207
       Top = 87
     end
@@ -133,9 +134,10 @@ object frSettings: TfrSettings
       Size.Width = 128.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 35
+      TabOrder = 34
       Text = #1054#1090#1082#1088#1099#1090#1100' '#1089#1090#1088#1080#1084
       TextSettings.Trimming = None
+      OnClick = btnOpenStreamClick
     end
     object btnGetTokenStreamer: TButton
       Position.X = 193.000000000000000000
@@ -143,13 +145,14 @@ object frSettings: TfrSettings
       Size.Width = 128.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 36
+      TabOrder = 35
       Text = #1055#1086#1083#1091#1095#1080#1090#1100' Token'
       TextSettings.Trimming = None
+      OnClick = btnGetTokenStreamerClick
     end
     object edtBotTokenStreamer: TEdit
       Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 37
+      TabOrder = 36
       Password = True
       Position.X = 8.000000000000000000
       Position.Y = 146.000000000000000000
@@ -191,13 +194,14 @@ object frSettings: TfrSettings
       TabOrder = 45
       Text = #1055#1086#1083#1091#1095#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnDAGetCodeClick
     end
     object Label63: TLabel
       Position.X = 8.000000000000000000
       Position.Y = 24.000000000000000000
       TextSettings.Trimming = None
       Text = 'Client ID'
-      TabOrder = 37
+      TabOrder = 36
     end
     object edtDAClientID: TEdit
       Touch.InteractiveGestures = [LongTap, DoubleTap]
@@ -269,8 +273,10 @@ object frSettings: TfrSettings
       TabOrder = 46
       Text = #1055#1086#1076#1082#1083#1102#1095#1080#1090#1100#1089#1103
       TextSettings.Trimming = None
+      OnClick = btnDAStartClick
     end
     object btnGetDADef: TButton
+      ImageIndex = 10
       Position.X = 8.000000000000000000
       Position.Y = 274.000000000000000000
       Size.Width = 209.000000000000000000
@@ -282,8 +288,8 @@ object frSettings: TfrSettings
       Visible = False
     end
     object cbDAAutoLogin: TCheckBox
-      Position.X = 8.000000000000000000
-      Position.Y = 274.000000000000000000
+      Position.X = 137.000000000000000000
+      Position.Y = 246.000000000000000000
       Size.Width = 88.000000000000000000
       Size.Height = 19.000000000000000000
       Size.PlatformDefault = False
@@ -300,6 +306,7 @@ object frSettings: TfrSettings
     TabOrder = 2
     Text = #1054#1090#1082#1088#1099#1090#1100' '#1087#1072#1087#1082#1091' '#1089' '#1085#1072#1089#1090#1088#1086#1081#1082#1072#1084#1080
     TextSettings.Trimming = None
+    OnClick = btnOpenRomaningClick
   end
   object btnImportSettings: TButton
     Position.X = 201.000000000000000000
@@ -310,6 +317,7 @@ object frSettings: TfrSettings
     TabOrder = 3
     Text = #1047#1072#1075#1088#1091#1079#1080#1090#1100' '#1089#1074#1086#1080' '#1085#1072#1089#1090#1088#1086#1081#1082#1080
     TextSettings.Trimming = None
+    OnClick = btnImportSettingsClick
   end
   object btnExportSettings: TButton
     Position.X = 201.000000000000000000
@@ -320,9 +328,10 @@ object frSettings: TfrSettings
     TabOrder = 4
     Text = #1042#1099#1075#1088#1091#1079#1080#1090#1100' '#1085#1072#1089#1090#1088#1086#1081#1082#1080
     TextSettings.Trimming = None
+    OnClick = btnExportSettingsClick
   end
   object btnMaster: TButton
-    Position.X = 440.000000000000000000
+    Position.X = 369.000000000000000000
     Position.Y = 321.000000000000000000
     Size.Width = 193.000000000000000000
     Size.Height = 22.000000000000000000
@@ -330,5 +339,14 @@ object frSettings: TfrSettings
     TabOrder = 7
     Text = #1047#1072#1087#1091#1089#1090#1080#1090#1100' '#1084#1072#1089#1090#1077#1088' '#1085#1072#1089#1090#1088#1086#1081#1082#1080
     TextSettings.Trimming = None
+    OnClick = btnMasterClick
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 513
+    Top = 272
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 312
+    Top = 184
   end
 end