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

fCommands.fmx

@@ -10,7 +10,7 @@ object frCommands: TfrCommands
     Size.Width = 606.000000000000000000
     Size.Height = 193.000000000000000000
     Size.PlatformDefault = False
-    TabOrder = 6
+    TabOrder = 5
     RowCount = 0
     Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
     Viewport.Width = 602.000000000000000000
@@ -306,7 +306,7 @@ object frCommands: TfrCommands
       Position.Y = 24.000000000000000000
       TextSettings.Trimming = None
       Text = #1042#1072#1088#1080#1072#1085#1090#1099' '#1086#1090#1074#1077#1090#1072
-      TabOrder = 42
+      TabOrder = 43
     end
   end
   object GroupBox8: TGroupBox
@@ -360,9 +360,10 @@ object frCommands: TfrCommands
     object btnRandAdd: TButton
       Position.X = 9.000000000000000000
       Position.Y = 205.000000000000000000
-      TabOrder = 34
+      TabOrder = 33
       Text = #1044#1086#1073#1072#1074#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnRandAddClick
     end
     object btnRandDel: TButton
       Position.X = 97.000000000000000000
@@ -370,9 +371,10 @@ object frCommands: TfrCommands
       Size.Width = 70.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 35
+      TabOrder = 34
       Text = #1059#1076#1072#1083#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnRandDelClick
     end
     object sgRandomInt: TStringGrid
       CanFocus = True