Разработка алгоритма сортировки методом простых вставок Delphi

[Hetsil]

Всем Привет !
Задача заключается в том что бы разработать сортировку методом простых вставок на основе сортировки таблицы адресов!! Я накидал небольшой код и сделал так что бы он мне сортировал просто одномерный массив в компоненте StringGrid !! Помогите пожалуйста до работать код так что бы сортировал не числа в столбце, а всю строку !!

StringGrid1.Cells[0,0]:= '№';
StringGrid1.Cells[1,0]:= 'Ф.И.О';
StringGrid1.Cells[2,0]:= 'БАлы';
StringGrid1.Cells[0,1]:= '01';
StringGrid1.Cells[0,2]:= '02';
StringGrid1.Cells[0,3]:= '03';
StringGrid1.Cells[0,4]:= '04';
StringGrid1.Cells[0,5]:= '05';
StringGrid1.Cells[0,6]:= '06';
StringGrid1.Cells[0,7]:= '07';
StringGrid1.Cells[0,8]:= '08';
StringGrid1.Cells[0,9]:= '09';
StringGrid1.Cells[0,10]:='10';


end;

procedure TForm1.Button1Click(Sender: TObject);
const SIZE=10;
var
a:array[1..SIZE] of integer; // Массив
key:integer; // ключ к элементу массива
j:integer; // Элемент массива
i:integer; // Ключ для ввода и вывода массива
buf:integer; // Буфер обмена
begin // Объявление массива
for i:=1 to SIZE do
a[i] := StrToInt(StringGrid1.Cells[2,i] );
label2.caption:='';
// Сортировка массива
for i:=2 to SIZE do
begin
j:=i-1;
while (j>0) and (a[i]<=a[j]) do dec(j);
inc(j);
buf:=a[i];
for key:=i downto j+1 do a[key]:=a[key-1];
a[j]:=buf;
end;
// Вывод результата в Label
for i:=1 to SIZE do
Label2.caption:=label2.caption+' '+ IntTostr(a[i]);
Label2.caption:=label2.caption + #13 + 'Массив отсортирован.';
begin // Вывод результата в StringGrid1
for i:= 1 to SIZE do
StringGrid1.Cells[2,i]:= IntToStr(a[i]);
end;
end;

Принимаю любую критику пишу в первый раз