procedure TForm1.SortStringgrid(Grid: TStringGrid; byColumn: LongInt;  ascending: Boolean);
    procedure ExchangeGridRows(i, j: Integer);
    var
        k: Integer;
    begin
        with Grid do
             for k := 0 to ColCount - 1 do
                 Cols[k].Exchange(i, j);
    end;

    procedure QuickSort(L, R: Integer);
    var
       I, J  : Integer;
       P     : string;
    begin
       repeat
         I     :=   L;
         J     :=   R;
         P     :=   Grid.Cells[byColumn, (L + R) shr 1];
         repeat
            while  CompareStr(Grid.Cells[byColumn, I], P)  <  0  do  Inc(I);
            while  CompareStr(Grid.Cells[byColumn, J], P)  >  0  do  Dec(J);
            if I <= J then     begin
               if I <> J then
                     ExchangeGridRows(I, J);
               Inc(I);
               Dec(J);
            end;
         until   I  >  J;
         if   L  <  J  then  QuickSort(L, J);
         L := I;
       until I >= R;
    end;

    procedure InvertGrid;
    var
       i, j: Integer;
    begin
       i     :=   Grid.Fixedrows;
       j     :=   Grid.Rowcount - 1;
       while i  < j do begin
           ExchangeGridRows(I, J);
           Inc(i);
           Dec(j);
       end; { While }
    end;

begin
   Screen.Cursor := crHourglass;
   Grid.Perform(WM_SETREDRAW, 0, 0);
   try
      QuickSort(Grid.FixedRows, Grid.Rowcount - 1);
      if not ascending then
         InvertGrid;
   finally
      Grid.Perform(WM_SETREDRAW, 1, 0);
      Grid.Refresh;
      Screen.Cursor := crDefault;
   end;
end;

이건 이해가 가실지???
델파이코딩이 아니라 pl-sql 이거든요?
로직보시면 아실겁니다.
참고로 p_GUBUNS 값이 1이면 ascending (오름차순)
1이 아니면 descending (내림차순) 입니다.

글구 시간나시면 자료구조 책을 조금 보시는게...
소트에 대한 여러가지가 나와있습니다.

          FOR i IN p_t_STYLCD.FIRST..p_t_STYLCD.LAST - 1 LOOP
               X_SERIAL := p_t_STYLCD(i) || p_t_COLOCD(i);
              
               FOR j IN i+1..p_t_STYLCD.LAST LOOP
                    Z_SERIAL := p_t_STYLCD(j) || p_t_COLOCD(j);

                    IF p_GUBUNS = '1' THEN
                         IF X_SERIAL > Z_SERIAL THEN
                              R_STYLCD := p_t_STYLCD(j);
                              R_STYLNM := p_t_STYLNM(j);
                              R_COLOCD := p_t_COLOCD(j);
                        
                              p_t_STYLCD(j) := p_t_STYLCD(i);
                              p_t_STYLNM(j) := p_t_STYLNM(i);
                              p_t_COLOCD(j) := p_t_COLOCD(i);
                              
                              p_t_STYLCD(i) := R_STYLCD;
                              p_t_STYLNM(i) := R_STYLNM;
                              p_t_COLOCD(i) := R_COLOCD;

                              X_SERIAL := R_STYLCD || R_COLOCD;

                         END IF;    
                    ELSE
                         IF X_SERIAL < Z_SERIAL THEN
                              R_STYLCD := p_t_STYLCD(j);
                              R_STYLNM := p_t_STYLNM(j);
                              R_COLOCD := p_t_COLOCD(j);
                        
                              p_t_STYLCD(j) := p_t_STYLCD(i);
                              p_t_STYLNM(j) := p_t_STYLNM(i);
                              p_t_COLOCD(j) := p_t_COLOCD(i);
                              
                              p_t_STYLCD(i) := R_STYLCD;
                              p_t_STYLNM(i) := R_STYLNM;
                              p_t_COLOCD(i) := R_COLOCD;

                              X_SERIAL := R_STYLCD || R_COLOCD;

                         END IF;    

                    END IF;    
               END LOOP;
          
          END LOOP;