[AndrYxo]

Спасибо) Работает конечно - но у меня как всегда ни как у людей - у меня или вообще это сообщение по появляется или появляется при каждом нажатиии на баттон 2 - все равно - нажал я до этого на 1 или нет... может я просто не туда пихаю? Вот мои коды, подскажипе ,пожалуйста, куда вставить, если не трудно..
это типа баттон 1 - заполняется матрица

Код:

procedure TForm5.Button6Click(Sender: TObject);
var i,j:integer;
begin
n:=12;
m:=9;
setlength(A,n,m);
stringgrid1.RowCount:=n;
stringgrid1.ColCount:=m;
for i:=0 to n-1 do
for j:=0 to m-1 do
  begin
  A[i,j]:=sin(j)/cos(j)+exp(cos(i));;
  stringgrid1.Cells[j,i]:=FormatFloat('0.00',A[i,j]);
  end;
end;

а это типа баттон 2 - на котрый меняются столбцы

Код:

procedure TForm5.Button7Click(Sender: TObject);
var i,j,t:integer;
tmp:real;
begin
m:=stringgrid1.ColCount;
k:=0;
l:=8;
for i:=0 to n-1 do
  begin
  tmp:=A[i,k];
  A[i,k]:=A[i,l];
  A[i,l]:=tmp;
  end;
for t:=0 to n-1 do
for j:=0 to m-1 do
stringgrid1.Cells[j,t]:=FormatFloat('0.00',A[t,j]);
end;

Заранее Спасибо)