Копирование столбцов из SGrid1 в SGrid2

Stringgrid2.Cell[0,0]:=Stringgrid1.Cells[5,0];
Stringgrid2.Cell[0,1]:=Stringgrid1.Cells[5,1];
Stringgrid2.Cell[0,2]:=Stringgrid1.Cells[5,2];
Stringgrid2.Cell[0,3]:=Stringgrid1.Cells[5,3];
Stringgrid2.Cell[0,4]:=Stringgrid1.Cells[5,4];
Stringgrid2.Cell[0,5]:=Stringgrid1.Cells[5,5];

Stringgrid2.Cols[0].Text:= Stringgrid1.Cols[5].Text

procedure TForm1.FormCreate(Sender: TObject);
var i,ii,j,n : integer;
begin
  for i:=1 to 8 do
  for j:=1 to 8 do
 
  with StringGrid8 do begin
  //StringGrid8.Font.Color:=RGBtocolor(255, 255, 255);
  If Trim(StringGrid8.Cells[j-1, i-1])= '' Then StringGrid8.Cells[j-1, i-1] := '0';
  end;
 
  with StringGrid16 do begin
//  StringGrid16.Font.Color:=RGBtocolor(255, 255, 255);
  If Trim(StringGrid16.Cells[j-1, i-1])= '' Then StringGrid16.Cells[j-1, i-1] := '0';
  end;
 
 
end;

for k := 1 to 24 do
for i:=1 to 8 do
for j:=1 to 8 do
If Trim(TStringgrid(FindComponent('Stringgrid'+inttostr(k))).Cells[j-1,i-1])= ''
Then  TStringgrid(FindComponent('Stringgrid'+inttostr(k))).Cells[j-1,i-1]:= '0';

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  sg : TStringGrid;
  Col, Row : Integer;
begin
  sg := Sender as TStringGrid;
  //Определяем координаты ячейки, на которой произошёл щелчок мыши.
  sg.MouseToCell(X, Y, Col, Row);
  //Если произошёл щелчок левой кнопкой мыши - устанавливаем флаг.
  if Button = mbLeft then begin
    //Под видом указателя на объект, который связан с ячейкой, записываем
    //значение флага. Значение флага, равное 1, означает, что цвет ячейки изменён.
    sg.Rows[Row].Objects[Col] := TObject(1); //Или: := Pointer(1);
    sg.Cells[col,row]:='1';   //значение 1
 
    //Если произошёл щелчок правой кнопкой мыши - сбрасываем флаг.
  end else if Button = mbRight then begin
    sg.Rows[Row].Objects[Col] := TObject(0); //Или: := Pointer(0);
    sg.Cells[col,row]:='0'; //значение 0
  end;
end;
 
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
type
  TSave = record
    FontColor : TColor;
    FontStyle : TFontStyles;
    BrColor : TColor;
  end;
var
  sg : TStringGrid;
  Save : TSave;
  Flag : Integer;
begin
  sg := Sender as TStringGrid;
  //Читаем значение флага, которое записано под видом указателя на объект.
  Flag := Integer(sg.Rows[ARow].Objects[ACol]);
  //Если флаг не равен 1 - выходим.
  if Flag <> 1 then Exit;
  //В противном случае, изменяем цвет ячейки.
  with sg.Canvas, Save do begin
    //Запоминаем параметры шрифта и кисти.
    FontColor := Font.Color;
    FontStyle := Font.Style;
    BrColor := Brush.Color;
    //Устанавливаем новые парметры.
    //Цвет шрифта - белый.
    Font.Color := RGBtocolor(255, 255, 255);
    //Стиль шрифта - жирный.
    Font.Style := Font.Style + [fsBold];
    //Цвет кисти - коричневый.
    Brush.Color := RGBtocolor(207, 20, 36);
    //Прорисовываем ячейку.
 
    //Заливаем квадрат ячейки цветом кисти.
    FillRect(aRect);
    //Прорисовываем в ячейке текст. Здесь +2 - так мы задаём ширину полей в ячейке.
    TextOut(aRect.Left + 2, aRect.Top + 2, Sg.Cells[ACol, ARow]);
 
    //Восстанавливаем прежние параметры канвы.
 
    Font.Color := FontColor;
    Font.Style := FontStyle;
    Brush.Color := BrColor;
  end;
       DrawTable();
end;          
 
......
 
procedure TForm1.DrawTable;
begin      
 Stringgrid16.Cols[0].Text:= Stringgrid8.Cols[7].Text;
  Stringgrid15.Cols[0].Text:= Stringgrid8.Cols[6].Text;
  Stringgrid14.Cols[0].Text:= Stringgrid8.Cols[5].Text;
  Stringgrid13.Cols[0].Text:= Stringgrid8.Cols[4].Text;
  Stringgrid12.Cols[0].Text:= Stringgrid8.Cols[3].Text;
  Stringgrid11.Cols[0].Text:= Stringgrid8.Cols[2].Text;
  Stringgrid10.Cols[0].Text:= Stringgrid8.Cols[1].Text;
  Stringgrid9.Cols[0].Text:= Stringgrid8.Cols[0].Text; 
end;