.....
// Ищем изделия в пределах одного документа
       While (StandDS.FieldByName('ГОСТ').AsString=TmpStr) and (StandDS.FieldByName('НаимИзделия').AsString=ProductName)
        and (not StandDS.Eof) do begin
       SetLength(FItems, FCount+1);
        FItems[FCount].Key:= StandDS.FieldByName('Обозначение').AsString;
        List.Text:= StandDS.FieldByName('ДляСортировки').AsString;
        begin
        If List.Count>0 then begin
        //параметры для сортировки
         If List.Count>FMaxParamCount
          then FMaxParamCount:= List.Count;
         SetLength(FItems[FCount].Values, List.Count);
         For I:= 0 to List.Count-1 do
          FItems[FCount].Values[I]:= List.Strings[I];
        end;
        end;
        Inc(FCount);
        StandDS.Next;
       end;
       // Сортируем объекты
       DataSet.FieldDefs.Add('Key', ftString, 100);
       IndexFields:= '';
       IsFloat:= False;
       For I:= 0 to FMaxParamCount-1 do begin
        For J:= 0 to FCount-1 do
         If FItems[J].Values<>nil then
         //определеяем, числовое поле или нет
          If Length(FItems[J].Values)>=I then begin
           try
            IsFloat:= TryStrToFloat(FItems[J].Values[I], F);
           except
            IsFloat:= False;
           end;
           If not IsFloat
            then Break;
          end;
        If IsFloat
         then DataSet.FieldDefs.Add('Field'+IntToStr(I), ftFloat)
         else DataSet.FieldDefs.Add('Field'+IntToStr(I), ftString, 20);
        IndexFields:= IndexFields+'Field'+IntToStr(I)+';';
       end;
       // Заносим данные в датасет
       DataSet.CreateDataSet;
       DataSet.IndexFieldNames:= '';
       DataSet.Active:= True;
       For I:= 0 to FCount-1 do begin
        DataSet.Append;
        DataSet.FieldByName('Key').AsString:= FItems[I].Key;
        For J:= 0 to FMaxParamCount-1 do
         If J<=Length(FItems[I].Values)-1
          then DataSet.FieldByName('Field'+IntToStr(J)).Value:= FItems[I].Values[J]
          else DataSet.FieldByName('Field'+IntToStr(J)).Value:= MaxDouble;
        DataSet.Post;
       end;
      DataSet.IndexFieldNames:= IndexFields+'Key';
       For I:= 0 to DataSet.RecordCount-1 do begin
        StandDS.Edit;
        StandDS.FieldByName('ПорядокПоПараметрам').AsInteger:= GetItemPos(StandDS.FieldByName('Обозначение').AsString);
        StandDS.Post;
        StandDS.Next;
       end;
      end;
     finally
      DataSet.Free;
      List.Free;
      FItems:= nil;
     end;
     // Включаем индексацию
     StandDS.IndexFieldNames:= 'Обозначение;ГОСТ;ПорядокПоПараметрам';