отремонтировал и анимировал смайлики для вебчатов

forms/uCreateChat.fmx

@@ -25,7 +25,7 @@ object fCreateChat: TfCreateChat
       Size.Height = 251.000000000000000000
       Size.PlatformDefault = False
       inherited ccbStyleBorderColor: TColorComboBox
-        TabOrder = 31
+        TabOrder = 30
       end
       inherited Label40: TLabel
         TabOrder = 8
@@ -42,6 +42,9 @@ object fCreateChat: TfCreateChat
       inherited sbStyleBlockBorderSize: TSpinBox
         TabOrder = 37
       end
+      inherited sbStyleBlockPadding: TSpinBox
+        TabOrder = 41
+      end
       inherited Label1: TLabel
         TabOrder = 34
       end
@@ -67,9 +70,6 @@ object fCreateChat: TfCreateChat
       Size.Width = 240.000000000000000000
       Size.Height = 125.000000000000000000
       Size.PlatformDefault = False
-      inherited Label41: TLabel
-        TabOrder = 6
-      end
       inherited ccbFontColor: TColorComboBox
         TabOrder = 36
       end
@@ -141,7 +141,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
@@ -173,6 +173,7 @@ object fCreateChat: TfCreateChat
     TabOrder = 3
     Text = #1058#1077#1089#1090#1086#1074#1086#1077' '#1089#1086#1086#1073#1097#1077#1085#1080#1077
     TextSettings.Trimming = None
+    OnClick = btnWebChatTestClick
   end
   object btnCreateWebChat: TButton
     Position.X = 704.000000000000000000