'All variants script
n = 9: MaxSize = 50dip : MinGap = 5 'change here (n = number of views)
AllWidth = 100%x
w = Min((AllWidth + 22dip)/ n, MaxSize)
gap = (AllWidth - n * w) / n
'Only change the views names and 'i' value:
i = 0 : Label1.SetLeftAndRight(i * gap + i * w,i * gap + (i + 1) * w)
i = 1 : Label2.SetLeftAndRight(i * gap + i * w,i * gap + (i + 1) * w)
i = 2 : Label3.SetLeftAndRight(i * gap + i * w,i * gap + (i + 1) * w)
i = 3 : Label4.SetLeftAndRight(i * gap + i * w,i * gap + (i + 1) * w)
i = 4 : Label5.SetLeftAndRight(i * gap + i * w,i * gap + (i + 1) * w)
i = 5 : Label6.SetLeftAndRight(i * gap + i * w,i * gap + (i + 1) * w)
i = 6 : Label7.SetLeftAndRight(i * gap + i * w,i * gap + (i + 1) * w)
i = 7 : Label8.SetLeftAndRight(i * gap + i * w,i * gap + (i + 1) * w)
i = 8 : Label9.SetLeftAndRight(i * gap + i * w, i * gap + (i + 1) * w)
Pane1.SetLeftAndRight(Pane1.Left, 10 + Label9.Right)
Pane1.SetLeftAndRight(50%x - Pane1.Width / 2, 50%x + Pane1.Width / 2)