[lmikle]

А че, простейшие сортировки не проходили. Классический пузырек, например? Вообще, рекомендую все делать в массиве, а в StringGrid только выводить результаты.

Вот сортировка:

Код:

procedure SortArray(var A : Array Of Integer);
var
  I, J, Swp : Integer,
begin
  For I := Low(A) To High(A)-1 Do
    For J := I + 1 To High(A) Do
      If A[i]>A[J] Then
        Begin
          Swp := A[i];
          A[i] := A[J];
          A[J] := Swp;
        End;
end;