Поменять местами строки(Delphi)

[U4-nik]

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

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

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

Ну свойства можно было бы и не указывать)))

[U4-nik]

кстати...я вот сейчас пытаюсь реализовать прогу(безуспешно), возник вопрос...я так понимаю что никакой разницы в кодах между кнопками button и bitbtn нету да?

[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.

[Shurik(c)]

А не проще с помощью Memo писать? там номерация строк и все такое... разницы нет))