[Alegun]

Попробуйте так

Код:

procedure TForm4.Button26Click(Sender: TObject);
var
 i, j: byte;
begin
 Randomize; //Заполняем массив случайными числами
 StringGrid1.ColCount:= d;
 StringGrid1.RowCount:= d;

 for i := 0 to d-1 do
  for j := 0 to d-1 do
   mas3[i, j]:= -4 + Random(21);

 for i := 0 to d-1 do
  for j := 0 to d-1 do
   StringGrid1.Cells[i, j]:= IntToStr(mas3[j, i]);
end;

procedure TForm4.Button28Click(Sender: TObject);
var
i, j, b: byte; //Меняем столбцы местами
x: integer;
begin
 for i := 0 to d-1 do
  begin
   b:= 0;
   for j := 0 to d-1 do
    if b < d-1 then
     begin
      x:= mas3[i, b];
      mas3[i, b]:= mas3[i, b+1];
      mas3[i, b+1]:= x;
      Inc(b, 2);
     end;
  end;

 StringGrid2.ColCount:= d;
 StringGrid2.RowCount:= d;

 for i:=0 to d-1 do
  for j:=0 to d-1 do
   StringGrid2.Cells[i, j]:= IntToStr(mas3[j, i]);

 end;

и можно так d и не чётную