добавил групповые ответы

fCommands.pas

@@ -8,7 +8,7 @@ uses
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
   System.Rtti, FMX.Grid.Style, FMX.Memo.Types, FMX.Grid, FMX.Layouts, uRecords,
   FMX.ListBox, FMX.Memo, FMX.Edit, FMX.Controls.Presentation, FMX.ScrollBox,
-  fSimpleGrid, fContruct;
+  fSimpleGrid, fContruct, fGroupsRequest;
 
 type
   TfrCommands = class(TFrame)
@@ -17,15 +17,6 @@ type
     scResponse: TStringColumn;
     GroupBox1: TGroupBox;
     GroupBox9: TGroupBox;
-    lbRandomGroup: TListBox;
-    lbRandomRespons: TListBox;
-    edtRandomGroup: TEdit;
-    edtRandomRespons: TEdit;
-    btnRandomAdd: TButton;
-    btnRandomDel: TButton;
-    btnRmGroup: TButton;
-    Label4: TLabel;
-    Label5: TLabel;
     GroupBox8: TGroupBox;
     edtRandomName: TEdit;
     edtOt: TEdit;
@@ -44,6 +35,7 @@ type
     frsgFiles: TfrSimpleGrid;
     frsgNeiro: TfrSimpleGrid;
     frContruct1: TfrContruct;
+    frGroupsRequest1: TfrGroupsRequest;
     procedure btnRandAddClick(Sender: TObject);
     procedure btnRandDelClick(Sender: TObject);
     procedure frsgSoundsbtnSoundDelClick(Sender: TObject);
@@ -59,6 +51,7 @@ type
     procedure sgCommandsCellClick(const Column: TColumn; const Row: Integer);
     procedure sgRandomIntCellDblClick(const Column: TColumn;
       const Row: Integer);
+    procedure frGroupsRequest1lbRandomGroupDblClick(Sender: TObject);
   private
     { Private declarations }
 
@@ -153,6 +146,12 @@ begin
 
 end;
 
+procedure TfrCommands.frGroupsRequest1lbRandomGroupDblClick(Sender: TObject);
+begin
+frContruct1.mResponse.Lines.text := frContruct1.mResponse.Lines.text + ' {{' + frGroupsRequest1.lbRandomGroup.Items
+    [frGroupsRequest1.lbRandomGroup.ItemIndex] + '}}';
+end;
+
 procedure TfrCommands.frsgFilessgCellDblClick(const Column: TColumn;
   const Row: Integer);
 begin