delphi - 配列にソートした後に TDictionary を破棄する正しい方法

Question

私は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;