Delphi - Como ordenar una StringGrid

Hola quisiera saber como puedo ordenar un StringGrid una ves que lo tengo lleno, la cosa es asi:
Tengo un StringGrid con los datos de una tabla de posiciones de un torneo de fubtol y lo quiero ordenar de mayor a menor de acuerdo a los puntos de cada equipo.

Gracias.

Una forma de hacerlo es con los metodos de ordenamiento

{ ---------------------------------------------------------------------------- }

procedure TForm1.Sortgrid(Grid : TStringGrid; SortCol:integer; by: byte);
var
i,j : Integer;
temp : TStringList;
begin
Temp:= TStringList.Create;
with Grid
do begin
for i := FixedRows to RowCount - 2 do
begin
for j:= i+1 to rowcount-1 do
begin
if (by=0) then // ascendente
begin
if AnsiCompareText(Cells[SortCol,i], Cells[SortCol,j]) < 0
then
begin
temp.assign(rows[j]);
rows[j].assign(rows[i]);
rows[i].assign(temp);
end;
end
else // descendente
begin
if AnsiCompareText(Cells[SortCol,i], Cells[SortCol,j]) > 0 then
begin
temp.assign(rows[j]);
rows[j].assign(rows[i]);
rows[i].assign(temp);
end;
end;
end;
end;
end;
temp.free;
change:=not by;
end;

{ ---------------------------------------------------------------------------- }

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ACol,ARow: integer;
begin
StringGrid1.MouseToCell(X, Y, ACol, ARow);
// solo debes seleccionar la columna correspondiente.

if (ACol>0) and (ARow=0) then
Form1.Sortgrid(StringGrid1,Acol,change);
end;

{ ---------------------------------------------------------------------------- }

nota:

declarar la variable change en la seccion private o publica

Sacado del Club Delphi.

Muchas gracias Sagitarius me ha ayudado mucho
Felicidades

metodos de ordenamiento en delphi