Товар на складе

[ЧАК]

Помогите пожалуйста как мне отсортировать товары внутри группы по тём критериям наименование, код, цена товара в таблице StringGrid зарание благодарю.

PROCEDURE BoobleSortList(nomerkriterija_pt:Integer);
 Var
  tmp:PGroupList;
  tmp1,tmp2:PList;
  V,W:Variant;
  Temp:Variant;
 BEGIN
  While tmp<>nil Do
    Begin
      IF tmp^.GroupSpisok<>nil Then
       Begin
        tmp1:=tmp^.GroupSpisok;
        While tmp1<>nil do
         Begin
           tmp2:=tmp1^.next;
           While tmp2<>nil Do
            Begin
              case nomerkriterija of
              1:begin
                 V:=tmp1^.Cod;
                 W:=tmp2^.Cod;
                end;
              2:begin
                 V:=tmp1^.Produkt;
                 W:=tmp2^.Produkt;
                end;
              3:begin
                 V:=tmp1^.Zena;
                 W:=tmp2^.Zena;
                end;
              end;
             {Ïðèñâàèâàåì âûáðàííûé êðèòåðèè V(îò tmp1),W(îò tmp2)}
              IF V>W Then
              begin
               Temp:=tmp2^.Cod;
               tmp2^.Cod:=tmp1^.Cod;
               tmp1^.Cod:=Temp;

               Temp:=tmp2^.Produkt;
               tmp2^.Produkt:=tmp1^.Produkt;
               tmp1^.Produkt:=Temp;

               Temp:=tmp2^.Zena;
               tmp2^.Zena:=tmp1^.Zena;
               tmp1^.Zena:=Temp;
              end;
             tmp2:=tmp2^.next;
            End;
           tmp1:=tmp1^.next
         End
       End;
      tmp:=tmp^.next
    End
 END;

[Npwas]

1-ый Способ:
Отсортировать сперва по группам, потом сортировать в пределах каждой группы, сохранив до этого для каждой группы номер начальной и конечной строки в массив переменных или еще куда-нибудь;
2-ой Способ:
Создать динамический вложенный список: список груп и у каждой группы список товаров, а потом сортировать в пределах групп (только тут нужна уже будет сортировка самого списка а не в StringGrid)