Stringgrid zmiana(wstawianie) kolumn i wierszy

Chcialem Combobox'em powiekszac i pomniejszac rozmiar trzech stringgridow, tzn jednoczesnie kolumny i wiersze dodac oraz potem odjac i zastosowalem takie cos: (zaznaczam ze mam pierwsza kolumne i pierwszy wiersz zamrozony):

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
StringGrid1.ColCount:=4;
if ComboBox1.ItemIndex=1 then
StringGrid1.ColCount:=5;
if ComboBox1.ItemIndex=2 then
StringGrid1.ColCount:=6;
if ComboBox1.ItemIndex=3 then
StringGrid1.ColCount:=7;

if ComboBox1.ItemIndex=0 then
stringgrid1.RowCount:=4;
if ComboBox1.ItemIndex=1 then
stringgrid1.RowCount:=5;
if ComboBox1.ItemIndex=2 then
stringgrid1.RowCount:=6;
if ComboBox1.ItemIndex=3 then
stringgrid1.RowCount:=7;
end;

Ale dodaje badz odejmuje kolumny i wiersze tylko stringgrida1, probowalem robic tak ze stringgrid2 i 3 ale tylko stringgrid1 dziala prawidlowo, a pozostale juz Combobox'em nie daje zmienic. Pomyslalem ze ktos zna inny, moze lepszy jest sposob na tego typu operacje? ,zeby naraz wszystkie 3 stringgridy sie zmienialy.

Próbowalem też tego i tylko zmienia mi kolumny, wierszy niestety nie zmienia pewnie dlatego ze jest na drugim miescu, ale jak zmienie kolejnosc to jest odwrotnie :/

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.text = '3' then
StringGrid1.ColCount:=4;
stringgrid1.RowCount:=4;

if ComboBox1.text = '4' then
StringGrid1.ColCount:=5;
stringgrid1.RowCount:=5;

if ComboBox1.text = '5' then
StringGrid1.ColCount:=6;
stringgrid1.RowCount:=6;

if ComboBox1.text = '6' then
StringGrid1.ColCount:=7;
stringgrid1.RowCount:=7;
end;

To raz:

if ComboBox1.text = '6' then
begin
  StringGrid1.ColCount:=7;
  stringgrid1.RowCount:=7;
end;

To dwa:
Jeżeli Combo zawiera itemy [4, 5, 6, 7] to:

SG.ColCount := StrToInt(Combo.Text);
SG.RowCount := StrToInt(Combo.Text);

lub

SG.ColCount := StrToInt(Combo.Items.Strings[Combo.ItemIndex]);
SG.RowCount := StrToInt(Combo.Items.Strings[Combo.ItemIndex]);

Dzieki wielkie, zatrybilo :)