добавил режим изменения

uCreateChat.fmx

@@ -8,6 +8,7 @@ object fCreateChat: TfCreateChat
   FormFactor.Height = 480
   FormFactor.Devices = [Desktop]
   OnCreate = FormCreate
+  OnShow = FormShow
   DesignerMasterStyle = 0
   object GroupBox1: TGroupBox
     Position.X = 8.000000000000000000
@@ -24,7 +25,7 @@ object fCreateChat: TfCreateChat
       Size.Height = 251.000000000000000000
       Size.PlatformDefault = False
       inherited ccbStyleBorderColor: TColorComboBox
-        TabOrder = 33
+        TabOrder = 32
       end
       inherited Label40: TLabel
         TabOrder = 8
@@ -42,7 +43,7 @@ object fCreateChat: TfCreateChat
         TabOrder = 37
       end
       inherited sbStyleBlockPadding: TSpinBox
-        TabOrder = 46
+        TabOrder = 45
       end
       inherited Label1: TLabel
         TabOrder = 34
@@ -69,6 +70,9 @@ object fCreateChat: TfCreateChat
       Size.Width = 240.000000000000000000
       Size.Height = 125.000000000000000000
       Size.PlatformDefault = False
+      inherited Label41: TLabel
+        TabOrder = 6
+      end
       inherited Label46: TLabel
         TabOrder = 39
       end
@@ -134,7 +138,7 @@ object fCreateChat: TfCreateChat
       Size.Width = 112.000000000000000000
       Size.Height = 19.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 37
+      TabOrder = 38
       Text = #1042#1077#1095#1085#1086
     end
     object sbWebServerPort: TSpinBox
@@ -168,8 +172,11 @@ object fCreateChat: TfCreateChat
     TextSettings.Trimming = None
   end
   object btnCreateWebChat: TButton
-    Position.X = 721.000000000000000000
+    Position.X = 704.000000000000000000
     Position.Y = 257.000000000000000000
+    Size.Width = 97.000000000000000000
+    Size.Height = 22.000000000000000000
+    Size.PlatformDefault = False
     TabOrder = 4
     Text = #1057#1086#1079#1076#1072#1090#1100' '#1095#1072#1090
     TextSettings.Trimming = None