diff --git a/Host/MicroBoot.exe b/Host/MicroBoot.exe
index 3d232109..57989a30 100644
Binary files a/Host/MicroBoot.exe and b/Host/MicroBoot.exe differ
diff --git a/Host/Source/MicroBoot/MicroBoot.lps b/Host/Source/MicroBoot/MicroBoot.lps
index 3e7a3424..566b74af 100644
--- a/Host/Source/MicroBoot/MicroBoot.lps
+++ b/Host/Source/MicroBoot/MicroBoot.lps
@@ -47,7 +47,7 @@
         <Filename Value="configgroups.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="ConfigGroups"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <TopLine Value="470"/>
         <CursorPos X="37" Y="495"/>
         <UsageCount Value="84"/>
@@ -72,7 +72,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="SessionXcpDialog"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="4"/>
         <TopLine Value="226"/>
         <CursorPos X="52" Y="230"/>
         <UsageCount Value="76"/>
@@ -95,10 +95,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TransportXcpRs232Dialog"/>
-        <EditorIndex Value="-1"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="2"/>
         <TopLine Value="14"/>
         <CursorPos X="47" Y="34"/>
         <UsageCount Value="62"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit8>
       <Unit9>
         <Filename Value="transportxcpcandialog.pas"/>
@@ -107,13 +110,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TransportXcpCanDialog"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="212"/>
         <CursorPos X="75" Y="239"/>
         <UsageCount Value="62"/>
         <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit9>
       <Unit10>
         <Filename Value="transportxcpusbdialog.pas"/>
@@ -155,7 +156,7 @@
         <Filename Value="firmwareupdate.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="FirmwareUpdate"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="5"/>
         <TopLine Value="896"/>
         <CursorPos Y="930"/>
         <UsageCount Value="49"/>
diff --git a/Host/Source/MicroBoot/transportxcprs232dialog.lfm b/Host/Source/MicroBoot/transportxcprs232dialog.lfm
index 1779211b..39f88627 100644
--- a/Host/Source/MicroBoot/transportxcprs232dialog.lfm
+++ b/Host/Source/MicroBoot/transportxcprs232dialog.lfm
@@ -8,12 +8,12 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
   ClientWidth = 407
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  LCLVersion = '1.6.2.0'
+  LCLVersion = '1.6.4.0'
   object LlbCommunication: TLabel
     Left = 8
-    Height = 17
+    Height = 15
     Top = 8
-    Width = 96
+    Width = 87
     Caption = 'Communication'
     Font.Style = [fsBold]
     ParentColor = False
@@ -21,11 +21,11 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
   end
   object CmbDevice: TComboBox
     Left = 96
-    Height = 29
+    Height = 23
     Hint = 'Name of the communication device'
     Top = 35
     Width = 192
-    ItemHeight = 0
+    ItemHeight = 15
     ParentShowHint = False
     ShowHint = True
     TabOrder = 0
@@ -33,45 +33,38 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
   end
   object LblDevice: TLabel
     Left = 24
-    Height = 17
+    Height = 15
     Top = 38
-    Width = 41
+    Width = 38
     Caption = 'Device:'
     ParentColor = False
   end
   object CmbBaudrate: TComboBox
     Left = 96
-    Height = 27
+    Height = 23
     Hint = 'The communication speed in bits per second, as a 32-bit value (Default = 57600)'
     Top = 75
     Width = 192
-    ItemHeight = 0
-    ItemIndex = 0
+    ItemHeight = 15
+    ItemIndex = 3
     Items.Strings = (
-      '1200'
-      '2400'
-      '4800'
       '9600'
-      '14400'
       '19200'
       '38400'
-      '56000'
       '57600'
       '115200'
-      '128000'
-      '256000'
     )
     ParentShowHint = False
     ShowHint = True
     Style = csDropDownList
     TabOrder = 1
-    Text = '1200'
+    Text = '57600'
   end
   object LblBaudrate: TLabel
     Left = 24
-    Height = 17
+    Height = 15
     Top = 78
-    Width = 55
+    Width = 50
     Caption = 'Baudrate:'
     ParentColor = False
   end