исправлена передача команд в игры

TTW_Bot_app.dproj

@@ -4,7 +4,7 @@
         <ProjectVersion>20.3</ProjectVersion>
         <FrameworkType>FMX</FrameworkType>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Release</Config>
+        <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <ProjectName Condition="'$(ProjectName)'==''">TTW_Bot_app</ProjectName>
         <TargetedPlatforms>693395</TargetedPlatforms>

forms/uGeneral.fmx

@@ -642,7 +642,6 @@ object TTW_Bot: TTTW_Bot
         inherited btnCreateOBSGame: TButton
           Images = ImageList1
           ImageIndex = 20
-          TabOrder = 5
         end
         object btnCreateChat: TButton
           Images = ImageList1

forms/uGeneral.pas

@@ -436,18 +436,19 @@ end;
 procedure TTTW_Bot.checkAndSendToGames(aNick: string; aCommand: string);
 var
   I: Integer;
-  j: Integer;
+  j: Integer; s:string;
 begin
   for I := 0 to frOBS1.GameWebServers.Count - 1 do
   begin
     for j := 0 to frOBS1.GameWebServers[I].commands.Count - 1 do
     begin
-      if frOBS1.GameWebServers[I].commands[j] = aCommand then
+    s:= frOBS1.GameWebServers[I].commands[j];
+      if s= aCommand.Trim then
       begin
         var
         obj := TJSONObject.Create;
         obj.AddPair('user', aNick);
-        obj.AddPair('cmd', aCommand);
+        obj.AddPair('cmd', aCommand.Trim);
         frOBS1.GameWebServers[I].WebServerGame.Input(obj);
       end;
     end;

frames/fOBS.pas

@@ -596,13 +596,16 @@ begin
   GameWebServer.port := aPort;
   GameWebServer.WebServerGame := TGameWebServer.Create
     (myConst.GeneralPath, aPort);
+  GameWebServer.WebServerGame.SetGame(aGame);
+  commands :=  GameWebServer.WebServerGame.GetControlCommands;
+  GameWebServer.commands:= TStringList.Create;
+   for Cmd in commands do
+    GameWebServer.commands.Add(Cmd);
+
   GameWebServers.Add(GameWebServer);
   GameWebServers[GameWebServers.Count - 1].WebServerGame.Start;
-  GameWebServers[GameWebServers.Count - 1].WebServerGame.SetGame(aGame);
-  commands := GameWebServers[GameWebServers.Count - 1]
-    .WebServerGame.GetControlCommands;
-  for Cmd in commands do
-    GameWebServers[GameWebServers.Count - 1].commands.Add(Cmd);
+
+
 end;
 
 procedure TfrOBS.CreateWebKandinsky(aRecord: TOBSKandinsky);