Замена строк местами

[U4-nik]

Помогите пожалуйста написать процедуру...
условие:
Дана матррица. Переставить первую строку со строкой с заданным номером.

Матрицу я заполняю при помощи StringGrid(свойства ColCount - 5, RowCount - 6)...Номер строки с которой нужно поменять первую строку ввожу в Edit.
Измененную матрицу нужно вывести в такой же, как и исходный StringGrid.

ПОМОГИТЕ ПОЖАЛУЙСТА написать процедуру для кнопки которая выполнит это условие...
заранее спасибо!!!

[U4-nik]

Вот я написал процедуру...исправьте пожалуйста, я уверен что напутал.
спсибо...

 procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,k:integer;
 a:array[1..100] of integer;
begin

    k:=1;
    for i:=0 to StringGrid1.ColCount-1 do
     begin
      a[k]:=StrToInt(StringGrid1.Cells[i,0]);
      inc(k);
     end;
     begin
      StringGrid1.Cells[i,0]:=StringGrid1.Cells[i,1];
      StringGrid1.Cells[i,1]:=IntToStr(a[i+1]);
     end;
     end;
end.

[phomm]

то есть , ты уверен , что ты напутал ))) ? явно прикалываешься... проверь в дельфи да и всё.

я бы поступил чуток иначе(код не проверял , так написал):

procedure button1click(sender: tobject);
var arows : Tstrings;
begin
arows := grid.rows[куда];
grid.rows[куда] := grid.rows[откуда];
grid.rows[откуда] := arows ;
end;

"куда" - индекс строки куда ты хочешь переставить некую строку, "откуда" - индекс этой переставляемой строки, в твоём случае первая строка, ну а точное число зависит от нумерации - с нуля или с единицы