Циклы в StringGrid

[ShaoKhan]

Доброго времени суток!
Помогите дураку
Имеется вот такое задание: Задана матрица А= (5х5) . Сформировать матрицу В= (4х4) путем вычеркивания из матрицы А третьей строки и третьего столбца.
Сделать это нужно через StringGrid.

Вот мой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
j,i:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='A';
StringGrid2.Cells[0,0]:='B';

For j:=1 to 6 do
begin
StringGrid1.Cells[j,0]:=IntToStr(j);
StringGrid2.Cells[j,0]:=IntToStr(j);
For i:=1 to 6 do
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid2.Cells[0,1]:=IntToStr(1);
StringGrid2.Cells[0,2]:=IntToStr(2);
StringGrid2.Cells[0,3]:=IntToStr(3);
StringGrid2.Cells[0,4]:=IntToStr(4);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
For i:=1 to 3 do
StringGrid2.Cells[i,1]:=StringGrid1.Cells[i,1];
StringGrid2.Cells[i,1]:=StringGrid1.Cells[i,1];
For j:=1 to 3 do
StringGrid2.Cells[j,2]:=StringGrid1.Cells[j,2];
StringGrid2.Cells[j,2]:=StringGrid1.Cells[j,2];


StringGrid2.Cells[1,3]:=StringGrid1.Cells[1,4];
StringGrid2.Cells[1,4]:=StringGrid1.Cells[1,5];

StringGrid2.Cells[2,3]:=StringGrid1.Cells[2,4];
StringGrid2.Cells[2,4]:=StringGrid1.Cells[2,5];

StringGrid2.Cells[3,1]:=StringGrid1.Cells[4,1];
StringGrid2.Cells[4,1]:=StringGrid1.Cells[5,1];

StringGrid2.Cells[3,2]:=StringGrid1.Cells[4,2];
StringGrid2.Cells[4,2]:=StringGrid1.Cells[5,2];

StringGrid2.Cells[3,3]:=StringGrid1.Cells[4,4];
StringGrid2.Cells[4,3]:=StringGrid1.Cells[5,4];

StringGrid2.Cells[3,4]:=StringGrid1.Cells[4,5];
StringGrid2.Cells[4,4]:=StringGrid1.Cells[5,5];
end;

end.

Это слишком громоздко.
Подскажите, как это сделать через циклы?

[Stilet]

Как вариант:

type sg=class(TCustomGrid) end;

и

sg(StringGrid2).DeleteRow(2);
sg(StringGrid2).DeleteColumn(2);

И никаких циклов не нужно.

[ShaoKhan]

Сообщение от Stilet

Как вариант:

type sg=class(TCustomGrid) end;

и

sg(StringGrid2).DeleteRow(2);
sg(StringGrid2).DeleteColumn(2);

И никаких циклов не нужно.

Подскажите, куда писать тип ?

[Stilet]

Туда где описан класс формы