Перенос столбцов из одного StringGrid-а в другой

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  StringGrid2.RowCount:= StringGrid1.RowCount;
  StringGrid2.ColCount:=3;
  for i:=0 to StringGrid1.RowCount-1 do
    begin
      StringGrid2[0,i]:=StringGrid1[2,i];
      StringGrid2[1,i]:=StringGrid1[4,i];
      StringGrid2[2,i]:=StringGrid1[7,i];
    end;
end;

StringGrid2.Cols[1].Text:=StringGrid1.Cols[2].Text

procedure TForm1.MoveColls(a: array of integer);
var i, j: integer;
begin
  j:=0;
  for I := Low(a) to High(a) do begin
    StringGrid2.Cols[j].Text:=StringGrid1.Cols[a[i]].Text;
    inc(j);
  end;
end;

procedure TForm2.Button3Click(Sender: TObject);
var i: integer;
begin
StringGrid2.RowCount:= StringGrid1.RowCount;
i:=StrToInt(Edit3.Text);
StringGrid2.Cols[1].Text:=StringGrid1.Cols[i].Text
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
    a: string;
begin
  a:=Edit1.Text;
  j:=0;
  for i:=1 to length(a) do begin
    StringGrid2.Cols[j].Text:=StringGrid1.Cols[StrToInt(a[i])].Text;
    inc(j);
  end;
end;