procedure TMemoryLeakList.Sort;
    begin
      case fSortType of
        stSize:
        begin
          case fSortDirection of
            sdAsc:  inherited sort(sortBySizeProcAsc);
            sdDesc: inherited sort(sortBySizeProcDesc);
          end;
        end;
        stClassName:
        begin
          case fSortDirection of
            sdAsc:  inherited sort(sortByNameProcAsc);
            sdDesc: inherited sort(sortByNameProcDesc);
          end;
        end;
        stCallStackSize:
        begin
          case fSortDirection of
            sdAsc:  inherited sort(sortByCallStackSizeAsc);
            sdDesc: inherited sort(sortByCallStackSizeDesc);
          end;
        end;
        stID:
        begin
          case fSortDirection of
            sdAsc:  inherited sort(sortByIDAsc);
            sdDesc: inherited sort(sortByIDDesc);
          end;
        end;
      end;
    end;