sample updated

samples/firemonkey/QuickSysInfo/frmMain.fmx

@@ -14,7 +14,7 @@ object MainForm: TMainForm
     Size.Width = 564.000000000000000000
     Size.Height = 41.000000000000000000
     Size.PlatformDefault = False
-    TabOrder = 5
+    TabOrder = 6
   end
   object Layout2: TLayout
     Align = MostTop
@@ -22,13 +22,13 @@ object MainForm: TMainForm
     Size.Width = 564.000000000000000000
     Size.Height = 34.000000000000000000
     Size.PlatformDefault = False
-    TabOrder = 4
+    TabOrder = 5
     object Label2: TLabel
       Align = MostLeft
       StyledSettings = [Family, Size, FontColor]
       Margins.Left = 7.000000000000000000
       Position.X = 7.000000000000000000
-      Size.Width = 114.000000000000000000
+      Size.Width = 106.000000000000000000
       Size.Height = 34.000000000000000000
       Size.PlatformDefault = False
       TextSettings.Font.StyleExt = {00060000000000000004000000}
@@ -37,7 +37,7 @@ object MainForm: TMainForm
     end
     object lblDeviceName: TLabel
       Align = Client
-      Size.Width = 443.000000000000000000
+      Size.Width = 451.000000000000000000
       Size.Height = 34.000000000000000000
       Size.PlatformDefault = False
       Text = 'N/A'
@@ -46,7 +46,7 @@ object MainForm: TMainForm
   end
   object Layout3: TLayout
     Align = MostTop
-    Position.Y = 177.000000000000000000
+    Position.Y = 211.000000000000000000
     Size.Width = 564.000000000000000000
     Size.Height = 34.000000000000000000
     Size.PlatformDefault = False
@@ -74,7 +74,7 @@ object MainForm: TMainForm
   end
   object Layout4: TLayout
     Align = MostTop
-    Position.Y = 143.000000000000000000
+    Position.Y = 177.000000000000000000
     Size.Width = 564.000000000000000000
     Size.Height = 34.000000000000000000
     Size.PlatformDefault = False
@@ -102,7 +102,7 @@ object MainForm: TMainForm
   end
   object Layout5: TLayout
     Align = MostTop
-    Position.Y = 75.000000000000000000
+    Position.Y = 109.000000000000000000
     Size.Width = 564.000000000000000000
     Size.Height = 34.000000000000000000
     Size.PlatformDefault = False
@@ -130,7 +130,7 @@ object MainForm: TMainForm
   end
   object Layout6: TLayout
     Align = MostTop
-    Position.Y = 109.000000000000000000
+    Position.Y = 143.000000000000000000
     Size.Width = 564.000000000000000000
     Size.Height = 34.000000000000000000
     Size.PlatformDefault = False
@@ -156,4 +156,32 @@ object MainForm: TMainForm
       TabOrder = 3
     end
   end
+  object Layout7: TLayout
+    Align = MostTop
+    Position.Y = 75.000000000000000000
+    Size.Width = 564.000000000000000000
+    Size.Height = 34.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 4
+    object Label1: TLabel
+      Align = MostLeft
+      StyledSettings = [Family, Size, FontColor]
+      Margins.Left = 7.000000000000000000
+      Position.X = 7.000000000000000000
+      Size.Width = 106.000000000000000000
+      Size.Height = 34.000000000000000000
+      Size.PlatformDefault = False
+      TextSettings.Font.StyleExt = {00060000000000000004000000}
+      Text = 'UserName'
+      TabOrder = 5
+    end
+    object lblUserName: TLabel
+      Align = Client
+      Size.Width = 451.000000000000000000
+      Size.Height = 34.000000000000000000
+      Size.PlatformDefault = False
+      Text = 'N/A'
+      TabOrder = 3
+    end
+  end
 end

samples/firemonkey/QuickSysInfo/frmMain.pas

@@ -25,6 +25,9 @@ type
     Layout6: TLayout;
     Label4: TLabel;
     lblAppVersion: TLabel;
+    Layout7: TLayout;
+    Label1: TLabel;
+    lblUserName: TLabel;
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
@@ -42,6 +45,7 @@ implementation
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
   lblDeviceName.Text := SystemInfo.HostName;
+  lblUserName.Text := SystemInfo.UserName;
   lblOS.Text := SystemInfo.OsVersion;
   lblAppPath.Text := SystemInfo.AppPath;
   lblAppName.Text := SystemInfo.AppName;