Form1.Height:= gb[1].Height * n_items + 13 + GetSystemMetrics(SM_CYCAPTION); // учитывать высоту окна для разных тем windows Form1.Width:= 210;