из StringGrid1 в StringGrid2

[robin39]

Как занести max каждого столбца стринггрид1, в каждый столбец Стринггрид2.

[robin39]

подскажите, где ошибка. невыводит наибольшше значение в label

var
  i,max,j: integer;
begin

stringgrid2.ColCount:=strtoint(edit1.text);
max:=strtoint(StringGrid1.Cells[0,0]);
for i:=1 to stringgrid1.ColCount-1 do
    if StrToInt(StringGrid1.Cells[i,0]) > max then
      max := StrToInt(StringGrid1.Cells[i,0]);
label4.caption:=StringGrid1.Cells[i,0];
end;