Работа с Drawgrid

if RadioGroup2.ItemIndex=0  then  (Form1.DrawGrid1.Height:= 425 and Form1.DrawGrid1.Width:= 425 and Form1.DrawGrid1.DefaultRowHeight:=20 and Form1.DrawGrid1.DefaultColWidth:=20)
else if RadioGroup2.ItemIndex=1 then  (Form1.DrawGrid1.Height:= 531 and Form1.DrawGrid1.Width:= 531 and Form1.DrawGrid1.DefaultRowHeight:=25 and Form1.DrawGrid1.DefaultColWidth:=25)
else if RadioGroup2.ItemIndex=2 then  (Form1.DrawGrid1.Height:= 638 and Form1.DrawGrid1.Width:= 638 and Form1.DrawGrid1.DefaultRowHeight:=30 and Form1.DrawGrid1.DefaultColWidth:=30)

//зададим размеры формы и расположим компоненты
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.ClientWidth:=800;//размер чтобы все вошло
Form1.ClientHeight:=640;
DrawGrid1.Left:=5;//грид слева вверху
DrawGrid1.Top:=5;
DrawGrid1.DefaultColWidth:=20;//размер клеток
DrawGrid1.DefaultRowHeight:=20;
//остальное справа вверху
RadioGroup2.Left:=Form1.ClientWidth-RadioGroup2.Width-5;//
RadioGroup2.Top:=5;
Button1.Left:=RadioGroup2.Left;
Button1.Top:=RadioGroup2.Top+RadioGroup2.Height+20;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioGroup2.ItemIndex=0  then
 begin
  DrawGrid1.Height:= 425;
  DrawGrid1.Width:= 425;
  DrawGrid1.ColCount:=20; //количество клеток
  DrawGrid1.RowCount:=20;
 end
else if RadioGroup2.ItemIndex=1 then
 begin
  DrawGrid1.Height:= 531;
  DrawGrid1.Width:= 531;
  DrawGrid1.ColCount:=25;
  DrawGrid1.RowCount:=25;
 end
else if RadioGroup2.ItemIndex=2 then
 begin
  DrawGrid1.Height:= 638;
  DrawGrid1.Width:= 638;
  DrawGrid1.ColCount:=30;
  DrawGrid1.RowCount:=30;
 end;
 
end;