Изменение ширины ScrollBar в cxGrid

[shurets]

Хочу изменить ширину ScrollBar в cxGrid.

Вот так работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
View.Site.VScrollBar.Width := GetSystemMetrics(SM_CXVSCROLL) * 2;
View.LayoutChanged;
end;

А так не работает:

procedure TForm1.FormShow(Sender: TObject);
begin
View.Site.VScrollBar.Width := GetSystemMetrics(SM_CXVSCROLL) * 2;
View.LayoutChanged;
end;

Очевидно, что нужно, чтобы ширина ScrollBar изменялась без нажатий на кнопку.
Как это сделать?