delphi – 在将TDictionary排序成数组后处理TDictionary的正确方

target_results : TDictionary<longint,double>;

填充后我需要对结果进行排序.我是这样做的

type
  TSearchResult = TPair<longint,double>;

var
 target_results_array : TArray<TSearchResult>;

target_results_array:= target_results.ToArray;
TArray.Sort<TSearchResult>(best_knowledge_search_results,TComparer<TSearchResult>.Construct(
                              function(const L,R: TSearchResult): Integer
                              begin
                                if L.Value < R.Value then Result := 1 else if L.Value > R.Value then Result := -1 else Result := 0;
                              end
                    ));

这一切都按预期工作.我的问题是如何在没有任何泄漏的情况下处理TDictionary和TArray？目前我正在做

target_results.Free;