Компоненты таблицы для работы с матрицей

[Алька111]

Пожалуйста нужен код по этому заданию
Цель:
 Познакомиться с компонентом отображения данных в табличной форме - StringGrid, его структурой, свойствами и методами обработки,
 Научиться выводить матрицу в табличной форме на экран через компонент StringGrid, задавать свойства – количество строк и столбцов, фиксированных строк и столбцов, цвет ячеек, шрифт текста, составлять процедуру обработки событий, связанных с таблицей.
Дана матрица A(3, 4). Вычислить сумму элементов первого столбца.
Есть матрица 3 на 3.Немного надо исправить

procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Form1.Handle,2000,AW_VER_POSITIVE);
end;

procedure TForm1.Button1Click(Sender: TObject);
const n=4;
 type day=array[1..4,1..n]of Integer;
var mas:day;  i,j,k:Integer; t: string;
begin
for i:=1 to n-1 do
begin
StringGrid1.Cells[0,1]:='1 строка';
StringGrid1.Cells[0,2]:='2 строка';
StringGrid1.Cells[0,3]:='3 строка';
StringGrid1.Cells[0,4]:='4 строка';
StringGrid1.Cells[1,0]:='1 столбец';
StringGrid1.Cells[2,0]:='2 столбец';
StringGrid1.Cells[3,0]:='3 столбец'
end;
for i:=1 to n-1 do begin
mas[1,i]:=StrToInt(memo1.Lines[i-1]);
StringGrid1.Cells[i,1]:=IntToStr(mas[1,i]);
  end;
  for i:=1 to n-1 do begin
mas[2,i]:=StrToInt(memo2.Lines[i-1]);
StringGrid1.Cells[i,2]:=IntToStr(mas[2,i]);
  end;
  for i:=1 to n-1 do begin
mas[3,i]:=StrToInt(Memo3.Lines[i-1]);
StringGrid1.Cells[i,3]:=IntToStr(mas[3,i]);
  end;
  for i:=1 to n-1 do begin
mas[4,i]:=StrToInt(Memo3.Lines[i-1]);
StringGrid1.Cells[i,4]:=IntToStr(mas[4,i]);
  end;
  for j:=1 to n do
 k:=mas[1,1]+mas[2,1]+mas[3,1]+mas[4,1];
 edt1.Text:=IntToStr(k)
 end;
 procedure TForm1.Button2Click(Sender: TObject);
begin
Close
end;

end.