Another way for pixel perfect multiplatform tbStatusToolBar

Units/Forms/UFRMMainForm.lfm

@@ -104,14 +104,15 @@ object FRMMainForm: TFRMMainForm
   end
   object tbStatusToolBar: TToolBar
     AnchorSideTop.Control = sbStatusBar
+    AnchorSideTop.Side = asrCenter
     AnchorSideBottom.Control = sbStatusBar
     AnchorSideBottom.Side = asrBottom
     Left = 778
-    Height = 15
-    Top = 585
+    Height = 16
+    Top = 584
     Width = 70
     Align = alNone
-    Anchors = [akTop, akRight, akBottom]
+    Anchors = [akTop, akRight]
     AutoSize = True
     ButtonHeight = 16
     ButtonWidth = 23

Units/Forms/UFRMMainForm.pas

@@ -134,11 +134,11 @@ procedure TFRMMainForm.FormCreate(Sender: TObject);
     LHeightDiff: Integer;
   begin
     LHeightDiff := sbStatusBar.Height - tbStatusToolBar.Height;
-    if LHeightDiff <= 0 then
+    if LHeightDiff >= 0 then
       Exit;
 
-    tbStatusToolBar.BorderSpacing.Bottom := (LHeightDiff div 2) + (LHeightDiff mod 2);
-    tbStatusToolBar.BorderSpacing.Top := LHeightDiff div 2;
+    tbStatusToolBar.AnchorSideTop.Side := asrTop;
+    tbStatusToolBar.Anchors := [akTop, akRight, akBottom];
   end;
 
 begin