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

fAI.fmx

@@ -11,6 +11,8 @@ object frAI: TfrAI
     TabOrder = 43
     Text = #1055#1086#1083#1091#1095#1080#1090#1100' GigaChat'
     TextSettings.Trimming = None
+    Visible = False
+    OnClick = btnGetAIDefClick
   end
   object edtAIP2: TEdit
     Touch.InteractiveGestures = [LongTap, DoubleTap]
@@ -81,6 +83,7 @@ object frAI: TfrAI
       Size.PlatformDefault = False
       TabOrder = 40
       Text = 'GigaChat'
+      OnChange = RBCustomChange
     end
     object RBCustom: TRadioButton
       Align = Top
@@ -96,6 +99,7 @@ object frAI: TfrAI
       Size.PlatformDefault = False
       TabOrder = 39
       Text = 'Custom'
+      OnChange = RBCustomChange
     end
     object rbDS: TRadioButton
       Align = Top
@@ -111,6 +115,7 @@ object frAI: TfrAI
       Size.PlatformDefault = False
       TabOrder = 38
       Text = 'DeepSeek'
+      OnChange = RBCustomChange
     end
     object rbCG: TRadioButton
       Align = Top
@@ -126,6 +131,7 @@ object frAI: TfrAI
       Size.PlatformDefault = False
       TabOrder = 37
       Text = 'ChatGPT'
+      OnChange = RBCustomChange
     end
   end
   object edtAIP3: TEdit