добавил обработку наград

frames/fRevards.fmx

@@ -17,8 +17,10 @@ object frRevards: TfrRevards
     Size.Height = 196.000000000000000000
     Size.PlatformDefault = False
     TabOrder = 1
-    Viewport.Width = 613.000000000000000000
-    Viewport.Height = 196.000000000000000000
+    RowCount = 0
+    OnCellClick = StringGrid1CellClick
+    Viewport.Width = 609.000000000000000000
+    Viewport.Height = 171.000000000000000000
     object StringColumn1: TStringColumn
       Header = #1053#1072#1079#1074#1072#1085#1080#1077
       HeaderSettings.TextSettings.WordWrap = False
@@ -43,11 +45,11 @@ object frRevards: TfrRevards
     Position.Y = 8.000000000000000000
     TextSettings.Trimming = None
     Text = #1053#1072#1079#1074#1072#1085#1080#1077
-    TabOrder = 4
+    TabOrder = 3
   end
   object ceCustomRevardTitle: TComboEdit
     Touch.InteractiveGestures = [LongTap, DoubleTap]
-    TabOrder = 5
+    TabOrder = 4
     ItemHeight = 19.000000000000000000
     ItemIndex = -1
     Position.X = 8.000000000000000000
@@ -58,7 +60,7 @@ object frRevards: TfrRevards
   end
   object edtCustomRevardPrompt: TEdit
     Touch.InteractiveGestures = [LongTap, DoubleTap]
-    TabOrder = 9
+    TabOrder = 8
     Position.X = 198.000000000000000000
     Position.Y = 33.000000000000000000
     Size.Width = 348.000000000000000000
@@ -93,17 +95,28 @@ object frRevards: TfrRevards
     TabOrder = 10
   end
   object btnAddCustomRewards: TButton
-    Position.X = 95.000000000000000000
-    Position.Y = 88.000000000000000000
-    TabOrder = 16
+    Position.X = 262.000000000000000000
+    Position.Y = 63.000000000000000000
+    TabOrder = 15
     Text = #1044#1086#1073#1072#1074#1080#1090#1100
     TextSettings.Trimming = None
+    OnClick = btnAddCustomRewardsClick
   end
   object btnDelCustomRewards: TButton
-    Position.X = 183.000000000000000000
-    Position.Y = 88.000000000000000000
+    Position.X = 262.000000000000000000
+    Position.Y = 93.000000000000000000
     TabOrder = 17
     Text = #1059#1076#1072#1083#1080#1090#1100
     TextSettings.Trimming = None
+    OnClick = btnDelCustomRewardsClick
+  end
+  object cbUserInput: TCheckBox
+    Position.X = 95.000000000000000000
+    Position.Y = 91.000000000000000000
+    Size.Width = 162.000000000000000000
+    Size.Height = 19.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 18
+    Text = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100#1089#1082#1080#1081' '#1074#1074#1086#1076
   end
 end