Bubble Sort en StringGrid

[Gothic_Indhy]

Tengo que hacer el ordenamiento de un stringgrid con el metodo de la burbuja (Bubble Sort), que segun investigue seria algo como::

Procedure BubleSort(var sort:Array_integer);

Var
a,s,tmp:integer;
Begin

For a := 1 to 9 do
For s := 0 to 8 do
If (sort[s] > sort[s+1]) then
Begin
tmp:= sort[s];
sort[s] := sort[s+1];
sort[s+1] := tmp;
End;
End;
End;

Y mi StringGrid seria:::

procedure TConsDpto.FormActivate(Sender: TObject);
begin
With SG do
Begin
Rowcount:=L+1;
cells[0,0]:='Id';
cells[1,0]:='Departamento';
end;
For x:=0 to L do
Begin
with SG do
Begin
cells[0,x+1]:=inttostr(Aiddpto[x]);
cells[1,x+1]:=ADepartamento[x];
end;

Me podrian ayudar para que los datos que van a aparecer en el stringgrid aparezcan ordenados usando ese metodo? Como lo implemento?

Gracias