Размещение динамически созданных TButton

[Shouldercannon]

Доброго времени суток!
Пытаюсь разместить динамически созданные TButton на форме в три столбца. Удалось нормально разместить только по горизонтали. Зашёл в тупик с реализацией.

procedure TForm6.FormCreate(Sender: TObject);
var
  Button: Array[0..7] of TButton;
  I: Integer;
begin
  for I := 0 to 7 do
  begin
    Button[I] := TButton.Create(Form6);
    Button[I].Caption := MyArray[I].qq;
    Button[I].Height := 25;
    Button[I].Hint := MyArray[I].ww;
    Button[I].Left := 4 + I * 161;
    Button[I].Name := 'MyButton' + IntToStr(I);
    Button[I].Parent := Self;
    Button[I].ShowHint := True;
    Button[I].TabOrder := I;
    Button[I].Tag := I;
    if Button[I].Left <= 326 then
    begin
      Button[I].Top := 4
    end
    else
    begin
      Button[I].Left := 4;
      Button[I].Top := 16 + I * 29;
    end;
    Button[I].Width := 157;
    Button[I].OnClick := ProcAdd;
  end;
end;

[BDA]

А так?

  for I := 0 to 7 do
  begin
    Button[I] := TButton.Create(Form6);
    Button[I].Caption := MyArray[I].qq;
    Button[I].Height := 25;
    Button[I].Width := 157;
    Button[I].Hint := MyArray[I].ww;
    Button[I].Left := 4 + (I mod 3) * 161;
    Button[I].Top := 16 + (I div 3) * 29;
    Button[I].Name := 'MyButton' + IntToStr(I);
    Button[I].Parent := Self;
    Button[I].ShowHint := True;
    Button[I].TabOrder := I;
    Button[I].Tag := I;
    Button[I].OnClick := ProcAdd;
  end;

[Shouldercannon]

Идеально. Благодарю.